Seção 4 Barragens

usinas_hidreletricas            <- st_transform(sf::read_sf("layers//usinas_hidreletricas//0501_mg_usinas_hidreletricas_pto.shp", options = "ENCODING=WINDOWS-1252"), 4326) #%>% st_cast("POINT") %>% as("Spatial")
pequenas_hidreletricas          <- st_transform(sf::read_sf("layers//pequenas_hidreletricas//0502_mg_pequenas_centrais_hidreletricas_pto.shp", options = "ENCODING=WINDOWS-1252") , 4326)
barragens_rejeito               <- st_transform(sf::read_sf("layers//barragens_rejeito//1903_MG_Barragens_Rejeitos_Residuos_pto.shp", options = "ENCODING=WINDOWS-1252") , 4326)


colnames(usinas_hidreletricas)[which(names(usinas_hidreletricas) == "proprietar")] <- "Proprietário"
colnames(usinas_hidreletricas)[which(names(usinas_hidreletricas) == "munic_1")] <- "Município 1"
colnames(usinas_hidreletricas)[which(names(usinas_hidreletricas) == "munic_2")] <- "Município 2"
colnames(usinas_hidreletricas)[which(names(usinas_hidreletricas) == "nome")] <- "Nome"
colnames(usinas_hidreletricas)[which(names(usinas_hidreletricas) == "cnpj")] <- "CNPJ"
colnames(usinas_hidreletricas)[which(names(usinas_hidreletricas) == "rio")] <- "Rio"
colnames(usinas_hidreletricas)[which(names(usinas_hidreletricas) == "area_na_ma")] <- "Área superficial na cota máxima (ha)"

colnames(pequenas_hidreletricas)[which(names(pequenas_hidreletricas) == "proprietar")] <- "Proprietário"
colnames(pequenas_hidreletricas)[which(names(pequenas_hidreletricas) == "munic_1")] <- "Município 1"
colnames(pequenas_hidreletricas)[which(names(pequenas_hidreletricas) == "munic_2")] <- "Município 2"
colnames(pequenas_hidreletricas)[which(names(pequenas_hidreletricas) == "nome")] <- "Nome"
colnames(pequenas_hidreletricas)[which(names(pequenas_hidreletricas) == "cnpj")] <- "CNPJ"
colnames(pequenas_hidreletricas)[which(names(pequenas_hidreletricas) == "rio")] <- "Rio"
colnames(pequenas_hidreletricas)[which(names(pequenas_hidreletricas) == "area_na_ma")] <- "Área superficial na cota máxima (ha)"

colnames(barragens_rejeito)[which(names(barragens_rejeito) == "nome_bar")] <- "Nome da Barragem"
colnames(barragens_rejeito)[which(names(barragens_rejeito) == "razao_sc")] <- "Razão Social"
colnames(barragens_rejeito)[which(names(barragens_rejeito) == "cnpj")] <- "CNPJ"
colnames(barragens_rejeito)[which(names(barragens_rejeito) == "mun_bar")] <- "Município"
colnames(barragens_rejeito)[which(names(barragens_rejeito) == "bc_hidro")] <- "Bacia Hidrográfica"
colnames(barragens_rejeito)[which(names(barragens_rejeito) == "tipolog")] <- "Tipologia"
colnames(barragens_rejeito)[which(names(barragens_rejeito) == "sit_est")] <- "Situação da Estabilidade"



mapview(limite_minas_gerais, 
        #map.types = c("Esri.WorldImagery", "CartoDB.Positron", "CartoDB.DarkMatter", "OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap"),
        alpha.regions = 0, 
        zcol = "nomuf",
        layer.name = "Limite de Minas Gerais",
        lwd = 3,
        color = "black",
        legend = FALSE) + 
mapview(
        usinas_hidreletricas,
        col.regions = "red",
        #map.types = c("Esri.WorldImagery", "CartoDB.Positron", "CartoDB.DarkMatter", "OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap"),
        layer.name = "Usinas Hidrelétricas",
        popup = popupTable(
                   usinas_hidreletricas,
                   zcol =  c("Nome","Proprietário", "Município 1", "Município 2", "CNPJ", "Rio", "Área superficial na cota máxima (ha)"))) +
mapview(
    pequenas_hidreletricas,
    col.regions = "blue",
    #map.types = c("Esri.WorldImagery", "CartoDB.Positron", "CartoDB.DarkMatter", "OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap"),
    layer.name = "Pequenas Usinas Hidrelétricas",
    popup = popupTable(
      pequenas_hidreletricas,
      zcol =  c("Nome","Proprietário", "Município 1", "Município 2", "CNPJ", "Rio", "Área superficial na cota máxima (ha)"))) +
  mapview(
    barragens_rejeito,
    col.regions = "orange",
    map.types = c("Esri.WorldImagery", "CartoDB.Positron", "CartoDB.DarkMatter", "OpenStreetMap", "Esri.WorldImagery", "OpenTopoMap"),
    layer.name = "Barragens de Rejeito",
    popup = popupTable(
      barragens_rejeito,
      zcol =  c("Nome da Barragem","Razão Social", "CNPJ", "Município", "Bacia Hidrográfica", "Tipologia", "Situação da Estabilidade")))