inst/infohub/server.R

In OxfordIHTM/infohub: Oxford University MSc in International Health and Tropical Medicine Information Hub

################################################################################
#
# Server function
#
################################################################################
#
#
#
function(input, output, session) {
  #
  # Map base layer
  #
  output$map <- renderLeaflet({
    leaflet() %>%
      #
      # Add base map tiles - Mapbox Standard
      #
      addTiles(
        urlTemplate = mapStyle$url[mapStyle$style == "mapbox.standard"],
        attribution = "Map by <a href = 'http://www.mapbox.com/'>Mapbox</a>",
        group = "Mapbox Standard"
      ) %>%
      #
      # Add base map tiles - Mapbox Satellite
      #
      addTiles(
        urlTemplate = mapStyle$url[mapStyle$style == "mapbox.satellite"],
        attribution = "Map by <a href = 'http://www.mapbox.com/'>Mapbox</a>",
        group = "Mapbox Satellite"
      ) %>%
      #
      # Add base map tiles - Mapbox Street
      #
      addTiles(
        urlTemplate = mapStyle$url[mapStyle$style == "mapbox.street"],
        attribution = "Map by <a href = 'http://www.mapbox.com/'>Mapbox</a>",
        group = "Mapbox Street"
      ) %>%
      #
      # Add markers for student origin location
      #
      addCircleMarkers(data = studentData,
                       ~lon, ~lat,
                       radius = 4 * studentData$n,
                       stroke = TRUE,
                       color = "#002147",
                       weight = 5,
                       fillOpacity = 0.8,
                       fillColor = "#002147",
                       popup = paste("<b>Country:</b> ", studentData$country, "<br/>",
                                     "<b>No. of students from country:</b> ", studentData$n, " student/s", sep = ""),
                       group = "Student Origin Location") %>%
      #
      # Add markers for student placements
      #
      addMarkers(data = studentPlacement,
                 ~lon, ~lat,
                 popup = paste("<b>Location:</b> ", studentPlacement$location, ", ", studentPlacement$country, "<br/>",
                               "<b>Organisation:</b> ", studentPlacement$org_full, " - ", studentPlacement$org_short, "<br/>",
                               "<b>Subject:</b> ", studentPlacement$subject, "<br/>",
                               "<a href='", studentPlacement$url, "'>More Info</a>", sep = ""),
                 clusterOptions = markerClusterOptions(),
                 group = "Student Placement") %>%
      #
      # Add layers control
      #
      addLayersControl(
        baseGroups = c("Mapbox Standard", "Mapbox Satelllite", "Mapbox Street"),
        overlayGroups = c("Student Origin Location", "Student Placement"),
        options = layersControlOptions(collapsed = FALSE)
      ) %>%
      #
      # Add mini-map
      #
      addMiniMap(
        tiles = providers$Esri.NatGeoWorldMap,
        toggleDisplay = TRUE) %>%
      #
      # Set view
      #
      setView(lng = 20, lat = 20, zoom = 3)
  })
}