R - Блестящий виджет и листок, не подключающийся

Question

Файл BLschool.csv. Что я хочу сделать, это изменить карту на основе выбранного вами выбора.

Таким образом, если A выбран, то карта должна показывать только школы с оценкой качества A, также для B, C, D.

Однако, где значение input$schoolqual не поступают, или данные не является подмножеством какой-то причине, я получаю эту ошибку:

Error: schqual not found

server.R

sc <- read.csv("BLschools.csv", header = TRUE, sep=",") 

shinyServer(function(input, output){ 


    output$map <- renderLeaflet({ 

    schqual <- input$schoolqual %>% 
    school <- subset(sc, sc$Rateoutof4 == schqual) %>% 
    leaflet(data = school) %>% 
    setView(lng = -73.98928, lat = 40.75042, zoom = 10) %>% 
    addProviderTiles("CartoDB.Positron", options = providerTileOptions(noWrap = TRUE)) %>% 
    addMarkers(clusterOptions = markerClusterOptions(~lng, ~lat), icon = greenLeafIcon, 
      popup= ~paste("<b>", as.character(school$SchoolName),"</b><br/>", 
      "Rating: ", as.character(school$Rateoutof4),"<p></p>")) 
    }) 

}) 

ui.R

shinyUI(
fluidPage(
    titlePanel("NYC schools"), 
    sidebarLayout(
     sidebarPanel(
      selectInput(schoolqual, choices = c("A", "B","C", "D", "E"), selected = "A", label="school quality rating")), 
    mainPanel(leafletOutput("map")) 
    ) 
) 
) 

игнорируйте факт, что Rateoutof4, несмотря на имя, находится в символах. Я забыл изменить имя столбца.

Answer 1

Вы можете попробовать с реактивным выражением:

shinyServer(function(input, output){ 
    school <- reactive(subset(sc, sc$Rateoutof4 == input$schoolqual)) 
    output$map <- renderLeaflet({ 
    leaflet(data = school()) %>% 
    setView(lng = -73.98928, lat = 40.75042, zoom = 10) %>% 
    addProviderTiles("CartoDB.Positron", 
        options = providerTileOptions(noWrap = TRUE)) %>% 
    addMarkers(clusterOptions = markerClusterOptions(~lng, ~lat), 
       icon = greenLeafIcon, 
       popup= ~paste("<b>", 
          as.character(school()$SchoolName), 
          "</b><br/>", 
          "Rating: ", 
          as.character(school()$Rateoutof4), 
          "<p></p>")) 
    }) 
})