R - 使用 dplyr、DT 和 Shiny 在地图中创建数据表

Question

My code is

server <- function(input, output) {
  subsetdata = reactive ({
  newdata = popdatamerged[popdatamerged$`A` %in% input$'B',]
  return((newdata))
})

output$map = renderLeaflet({ 
  leaflet() %>%
  addTiles()
})

observe({
  leafletProxy('map') %>%
  clearMarkerClusters %>%
  addMarkers(data= subsetdata(), lng = ~Long, lat = ~Lat, 
             clusterOptions = markerClusterOptions(zoomToBoundsOnClick = TRUE, spiderfyOnMaxZoom = FALSE))
})

output$mytable = DT::renderDataTable({
  subsetdata() %>%
    group_by_(~CityCountry) %>%
    summarize_("D" = sum(~D), "E" = sum(~E), "F" = sum(~F), na.rm=TRUE)
})

The error I get in output (which is a Map) is under the header 'Data Table'

invalid 'type' (language) of argument

I am pretty sure it is coming from the dplyr's summarize part. Items D, E, and F are filled with either 0 or 1.

Is the reactive subsetdata not showing D, E, and F as 0s and 1s?

Edit I want to add the below code works outside of the server function using the popdatamerged

popdatamerged() %>%
    group_by_(~CityCountry) %>%
    summarize_("D" = sum(~D), "E" = sum(~E), "F" = sum(~F), na.rm=TRUE)

Answer 1

I was able to find a solution. I believe the observe syntax fixed the issue with the sum in the summarize line. Hopefully this can be helpful to others.

The datatabledata below is properly integrated in the map. The data table has a list of all unique CityCountry then sums up D, E, and F for each CityCountry.

Thank you for viewing.

server <- function(input, output) {
  subsetdata = reactive ({
  newdata = popdatamerged[popdatamerged$`A` %in% input$'B',]
  return((newdata))
 })

output$map = renderLeaflet({ 
  leaflet() %>%
  addTiles()
})

observe({
  leafletProxy('map') %>%
  clearMarkerClusters %>%
  addMarkers(data= subsetdata(), lng = ~Long, lat = ~Lat, 
         clusterOptions = markerClusterOptions(zoomToBoundsOnClick = TRUE, 
         spiderfyOnMaxZoom = FALSE))
})

  observe({
    datatabledata = DT:: datatable ({
      subsetdata() %>%
        dplyr:: group_by_(~CityCountry) %>%
        dplyr:: summarize( "D" = sum(D), "E" = sum(E), "F" = sum(F))
})

output$mytable = DT:: renderDataTable(datatabledata)})