Seção 6 Tragedia de Brumadinho

impacto_barragem_brumadinho     <- st_transform(sf::read_sf("layers//impacto_barragem_brumadinho//250102_Impactos_Ambientais_pol.shp", options = "ENCODING=WINDOWS-1252"), 4326)
pessoas_remanejadas_brumadinho  <- st_transform(sf::read_sf("layers//pessoas_remanejadas_brumadinho//250102_Remanejamento_pto.shp", options = "ENCODING=WINDOWS-1252"), 4326)


colnames(impacto_barragem_brumadinho)[which(names(impacto_barragem_brumadinho) == "descricao")]     <- "Descrição"
colnames(impacto_barragem_brumadinho)[which(names(impacto_barragem_brumadinho) == "classe")]     <- "Classe"

colnames(pessoas_remanejadas_brumadinho)[which(names(pessoas_remanejadas_brumadinho) == "descricao")]     <- "Descrição"
colnames(pessoas_remanejadas_brumadinho)[which(names(pessoas_remanejadas_brumadinho) == "classe")]     <- "Classe"


mapview(
  impacto_barragem_brumadinho,
  col.regions = c("orange"),
  #map.types = c("Esri.WorldImagery", "CartoDB.Positron", "CartoDB.DarkMatter", "OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap"),
  layer.name = "Área afetada",
  popup = popupTable(
    impacto_barragem_brumadinho,
    zcol =  c("Descrição", "Classe"))) +
  mapview(
    pessoas_remanejadas_brumadinho,
    #col.regions = c("green"),
    alpha = 0.8,
    map.types = c("Esri.WorldImagery", "CartoDB.Positron", "CartoDB.DarkMatter", "OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap"),
    layer.name = "Recuperação Vegetal",
    zcol = "Descrição",
    popup = popupTable(
      pessoas_remanejadas_brumadinho,
      zcol =  c("Descrição", "Classe")))