In Adebisi32/WebMapProj: Project Ethiopia

library(flexdashboard)
library(googlesheets)
library(leaflet)
library(shiny)
library(rgdal)
library(raster)
library(sp)
library(shapefiles)
library(mapview)
library(ProjEth)

ui <- fluidPage(
  tags$head(
    tags$style(HTML(".leaflet-container { background: white}"))
  )
  # etc.
)
# etc.

sheet<- gs_key('1hT9JHKGhKR1QcUDB8ylylURmgxoIkylLd4SF9zqdTVo')
fnm<- system.file("/extdata/kebeles.shp", package = "ProjEth")
kebele <- shapefile(fnm)
#class(kebele)
#head(kebele)

#Creating School points
Schoolpoints<- sheet %>% gs_read(ws = 1, range = "A1:R18")

#Adding data to shapefile
UniT<- sheet %>% gs_read(ws = 2, range = "A1:C34")
UniT<- as.data.frame(UniT)
#head(UniT)
#merge UniT to kebeles
merge1 <- merge(kebele,UniT, by="id")
#head(merge1)
#class(merge1)
#plot(merge1)

#Read and add Healthy Villages data
HV<- sheet %>% gs_read(ws = 3, range = "A1:I34")
HV<- as.data.frame(HV)
#head(HV)
merge2 <- merge(merge1,HV)
#head(merge2)
#class(merge2)

#Read and add Economic opportunities data
EconOpp<- sheet %>% gs_read(ws = 4, range = "A1:E34")
EconOpp<- as.data.frame(EconOpp)
#head(EconOpp)
#head(HV)
kebeles <- merge(merge2,EconOpp)
#head(kebeles)
#class(kebeles)

Education

bins1 <- c(0, 1, 2, 3, 5, Inf)
palUniT <- colorBin(
  palette = "YlOrRd",
  domain = kebeles$UniT2012,
  bins=bins1
)

output$Educ <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$OpenStreetMap)%>%
      setView(36.776, 11.242, zoom = 10) %>%
      addLegend("bottomright", pal = palUniT, values = kebeles$UniT2012,
                title = "Number of Awards (2012)",
                opacity = 1
      )%>%
      addPolygons(data = kebeles,
                 color = "#444444",
                 weight = 1,
                 smoothFactor = 0.5,
                 opacity = 1.0,
                 fillOpacity = 0.7,
                 highlightOptions = highlightOptions(color = "white", weight = 2,
                                                     bringToFront = FALSE),
                 fillColor = ~palUniT(kebeles$UniT2012),
                 popup = paste("Number of University Transition Awards: ", kebeles$UniT2012, sep=""))%>%
      addCircles(data=Schoolpoints,
                     lat = ~Lat, lng = ~Lng,
                     radius = 60,
                     color = '#191970',
                     label = Schoolpoints$`School Name`,
                     labelOptions = labelOptions(
                       style = list(
                         "color"= "black",
                         "font-size" = "12px",
                         "border-color" = "rgba(0,0,0,0.5)")),
            popup = paste('<h5 style="color:white;">',"Name:", Schoolpoints$`School Name`, '</h5>', "<br>",
                          '<h8 style="color:white;">',"New Buildings:", Schoolpoints$`New Buildings`,'</h8>', "<br>",
                          '<h8 style="color:white;">', "New Classrooms:", Schoolpoints$`New Classrooms`, '</h8>', "<br>",
                          '<h8 style="color:white;">', "Wells:", Schoolpoints$Wells, '</h8>', "<br>",
                          '<h8 style="color:white;">', "Piped Water:", Schoolpoints$`piped water system`, '</h8>', "<br>",
                          '<h8 style="color:white;">', "Latrines:", Schoolpoints$` Latrines `, '</h8>', "<br>",
                            popupImage(Schoolpoints$photos)))

  })

leafletOutput("Educ")

Healthy Villages

bins2<- c(0, 300, 450, 600, 750, Inf)
palHV <- colorBin(
  palette = "BuPu",
  domain = kebeles$Homes,
  bins = bins2
)

output$HV <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$OpenStreetMap.HOT)%>%
      setView(36.776, 11.242, zoom = 10)%>%
      addLegend("bottomright", pal = palHV, values = kebeles$Homes,
                title = "Homes Improved",
                opacity = 1
      )%>%
      addPolygons(data = kebeles,
                  color = "#444444",
                  weight = 1,
                  smoothFactor = 0.5,
                  opacity = 1.0,
                  fillOpacity = 0.7,
                  label = kebeles$Kebele,
                  labelOptions = labelOptions(
                    style = list(
                      "color"= "black",
                      "font-size" = "12px",
                      "border-color" = "rgba(0,0,0,0.5)")),
                  highlightOptions = highlightOptions(color = "white", weight = 2,
                                                      bringToFront = TRUE),
                  fillColor = ~palHV(kebeles$Homes),
                  popup = paste("Kebele:", kebeles$kebele, "<br>",
                               "Homes:", kebeles$Homes, "<br>",
                               "Wells:", kebeles$Wells, "<br>",
                               "PipedWater:", kebeles$`Piped water`,"<br>",
                               "CementFloors:", kebeles$`Cement Floors`,"<br>",
                               "MetalRoofs:", kebeles$`Metal Roofs`, "<br>",
                               "SolarLanterns:", kebeles$`Solar lanterns`, "<br>",
                               "Latrines:", kebeles$Latrines, "<br>",
                                popupImage(kebeles$HVphotos)))

  })

leafletOutput("HV")

Economic Opportunity

#create color palette
bins3<- c(0, 6, 30, 60, Inf)
palEO <- colorBin(
  palette = "YlGn",
  domain = kebeles$`Farmer's Association members assisted`,
  bins = bins3
)

#this is not done, photos not working
# add economic opportunity data to the map
output$EconOpp <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$OpenStreetMap.DE)%>%
      setView(36.776, 11.242, zoom = 10)%>%
      addLegend("bottomright", pal = palEO, values = kebeles$`Farmer's Association members assisted`,
                title = "Farmers Assisted",
                opacity = 1
      )%>%
      addPolygons(data = kebeles,
                  color = "#444444",
                  weight = 1,
                  smoothFactor = 0.5,
                  opacity = 1.0,
                  fillOpacity = 0.7,
                  label = kebeles$Kebele,
                  labelOptions = labelOptions(
                    style = list(
                      "color"= "black",
                      "font-size" = "12px",
                      "border-color" = "rgba(0,0,0,0.5)")),
                  highlightOptions = highlightOptions(color = "white", weight = 2,
                                                      bringToFront = TRUE),
                  fillColor = ~palEO(kebeles$`Farmer's Association members assisted`),
                  popup = paste('<h7 style="color:white;">',  "Name:", kebeles$Kebele, '</h7>', "<br>",
                                '<h8 style="color:white;">',"Microloans Distributed:", kebeles$Microloans,'</h8>', "<br>",
                                '<h8 style="color:white;">', "Wells:", kebeles$`Farmer's Association members assisted`, '</h8>', "<br>",
                                popupImage(kebeles$EOphotos)))
})

leafletOutput("EconOpp")