Seção 2 Terras Indigenas

limite_minas_gerais <- st_transform(sf::read_sf("layers//limite_minas_gerais//1102_mg_unidade_federacao_pol.shp", options = "ENCODING=WINDOWS-1252") , 4326)
                  
terras_indigenas    <- st_transform(sf::read_sf("layers//terras_indigenas//2003_mg_terras_indigenas_pol.shp", options = "ENCODING=WINDOWS-1252"), 4326)

raio_protecao_indigena    <- st_transform(sf::read_sf("layers//raio_indigenas//2005_MG_Raios_Restricao_Terras_Indigenas_pol.shp", options = "ENCODING=WINDOWS-1252"), 4326)




colnames(terras_indigenas)[which(names(terras_indigenas) == "etnia_nome")] <- "Nome da Etnia"
colnames(terras_indigenas)[which(names(terras_indigenas) == "fase_ti")] <- "Fase Terra Indígena"
colnames(terras_indigenas)[which(names(terras_indigenas) == "modalidade")] <- "Modalidade"
colnames(terras_indigenas)[which(names(terras_indigenas) == "terrai_nom")] <- "Localidade"
colnames(terras_indigenas)[which(names(terras_indigenas) == "municipio_")] <- "Municipio"
colnames(raio_protecao_indigena)[which(names(raio_protecao_indigena) == "tipologias")] <- "Tipologias"
colnames(raio_protecao_indigena)[which(names(raio_protecao_indigena) == "dist")] <- "Raio de Proteção"

Raio_Protecao_Indigena <- raio_protecao_indigena[c(1,5,4,2,3),]


mapview(limite_minas_gerais, 
        map.types = c("Stamen.Watercolor", "Esri.WorldImagery"),
        alpha.regions = 0, 
        zcol = "nomuf",
        lwd = 3,
        color = "black",
        legend = FALSE) #+ 

'mapview(terras_indigenas,
         map.types = c("Stamen.Watercolor", "Esri.WorldImagery"),
          zcol = "Localidade", legend = FALSE,
          popup = popupTable(
          terras_indigenas,
          zcol = c("Localidade",
                     "Municipio",
                     "Modalidade",
                     "Nome da Etnia",
                     "Fase Terra Indígena"
                  )
          )
         ) + 
mapview(Raio_Protecao_Indigena,
        map.types = c("Stamen.Watercolor", "Esri.WorldImagery"),
        zcol = c("Tipologias"),
        legend = T, 
        layer.name = "Tipologia do Raio de Proteção"
        )'

## [1] "mapview(terras_indigenas,\n         map.types = c(\"Stamen.Watercolor\", \"Esri.WorldImagery\"),\n          zcol = \"Localidade\", legend = FALSE,\n          popup = popupTable(\n          terras_indigenas,\n          zcol = c(\"Localidade\",\n                     \"Municipio\",\n                     \"Modalidade\",\n                     \"Nome da Etnia\",\n                     \"Fase Terra Indígena\"\n                  )\n          )\n         ) + \nmapview(Raio_Protecao_Indigena,\n        map.types = c(\"Stamen.Watercolor\", \"Esri.WorldImagery\"),\n        zcol = c(\"Tipologias\"),\n        legend = T, \n        layer.name = \"Tipologia do Raio de Proteção\"\n        )"