Ошибка использования SpatialPolygonDataFrame в реактивной функции в блестящем.

Question

Я получаю ошибку

Error in states() <- reactive({ : invalid (NULL) left side of assignment

когда я создаю реактивные функции, которые возвращают объекты с классом SpatialPolygonsDataFrame в году. Я сделал пример, который показывает это;

Я могу подмножество в листовке в одиночку, и это работает. А также,

Я могу поместить весь объект в карту листовки в блестящем.

Но если вы поместите его в реактивную функцию, он выдаст ошибку. Как мне поместить эти пространственные объекты в блестящие, чтобы перейти к листовке в блестящей?

library(leaflet)
library(sp)
library(rgeos)
library(rgdal)
library(shiny)

# From https://www.census.gov/geo/maps-data/data/cbf/cbf_state.html
# Get the 20m file, unzip and put in your working directory.
states <- readOGR("cb_2014_us_state_20m.shp",
                  layer = "cb_2014_us_state_20m", verbose = FALSE)

neStates <- subset(states, states$STUSPS %in% c(
  "CT","ME","MA","NH","RI","VT","NY","NJ","PA"
))

leaflet(neStates) %>%
  addPolygons(
    stroke = FALSE, fillOpacity = 0.5, smoothFactor = 0.5,
    color = ~colorQuantile("YlOrRd", states$AWATER)(AWATER)
  )

ui <- shinyUI(bootstrapPage(
  tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
  leafletOutput("map", width = "100%", height = "100%"),
  absolutePanel(class = "panel panel-default", 
                top = 1, right = 1, width = 300,
  selectInput("which_state","which state", 
              c("CT","ME","MA","NH","RI","VT","NY","NJ","PA"))
)))

#input <- list(which_state = "CT")
server <- function(input, output) {
  states() <- reactive({
    subset(neStates,neStates$STUSPS == input$which_state)
  })

  output$map <- renderLeaflet({
    leaflet() %>%
    addPolygons(states())
    #addPolygons(data = neStates)
  })
}

shinyApp(ui,server)

Answer 1

anything() <- 2 неверный синтаксис, следовательно ошибка. Вы не можете назначить что-то на то, что похоже на вызов функции (без параметров).

Вы, вероятно, хотите states скорее, чем states() в обоих местах.