Question

我现在正在学习一点闪亮，并且在这里有一个问题。我正在声明一个变量“finaldata”，它指的是我的“庇护”数据集中的一列。打印此变量（列）时，它可以正常工作，就像使用闪亮的服务器包装器之外的代码块一样。

然而，一旦我尝试在我的ggmap函数中引用finaldata，它就会给我一个“找不到对象”的错误。

在我声明我的反应性最终数据的地方似乎并不重要，它似乎无论如何都给我错误。

有没有人对代码在服务器包装器之外工作的原因有任何想法，并且在打印finaldata时没有问题，但是当它将它放入ggmap函数时会中断吗？谢谢你的帮助！

server <- function(input, output) {

finaldata <- reactive({asylum[,(input$Yearin - 1995)]})

output$distPlot <- renderPlot({

asylummap <- ggmap(map) +
  geom_point(aes(x = lon, y = lat, size = finaldata, stroke = 1), data = asylum, alpha = 0.7) +
  scale_size(range = c(1,20))    
asylummap
})

}

Answer 1

Please be more specific about the error message. Which object is not found? Anyways, the following code works well for me

library(shiny)
library(ggmap)

## code from ?ggmap
mu <- c(-95.3632715, 29.7632836); nDataSets <- sample(4:10,1)
chkpts <- NULL
for(k in 1:nDataSets){
  a <- rnorm(2); b <- rnorm(2);
  si <- 1/3000 * (outer(a,a) + outer(b,b))
  chkpts <- rbind(
    chkpts,
    cbind(MASS::mvrnorm(rpois(1,50), jitter(mu, .01), si), k)
  )
}
chkpts <- data.frame(chkpts)
names(chkpts) <- c("lon", "lat","class")
chkpts$class <- factor(chkpts$class)

## adapted from OP
finaldata <- reactive({chkpts[, "class"]})
shinyApp(
  ui = fluidPage(plotOutput("plot")),
  server = function(input, output, session){
    output$plot <- renderPlot({
      ggmap(hdf, extent = "normal") +
        geom_point(aes(x = lon, y = lat, colour = finaldata()), data = chkpts, alpha = .5)
    })
  }
)

在闪亮的服务器中找不到对象 - 在服务器外部工作

1 个答案: