Question

我已经在应用程序外部尝试过，并且可以使用，但是似乎无法在应用程序内部执行。

从应用程序中选择示例代码（相关位）：

   # Input: Selector for choosing the indicator
   selectInput(inputId = "indicator",
               label = "Choose an indicator:",
               choices = as.vector(Indicators)),

...

# Define server logic required to draw a histogram
server <- function(input, output) {

  #selected data
  selectedData <- reactive({
    data %>% 
      filter(Indicator == input$indicator)
  })

  #map data
  mapData <- reactive({
    left_join(poly, selectedData)
  mapData
  })

mapdata是一个shapefile，但这不应该成为问题，因为它可以在应用程序外部运行。

我想知道我还有什么事要做。

我想这等同于一些可重复的数据：

Indicator <- iris %>% distinct(Species)
selectedData <- iris %>% group_by(Species) %>% summarise(mean = mean(Sepal.Length))

我希望将其传递给ggplot。它在控制台中显示此错误：

ggplot中的错误：找不到对象“ mapdata”

以及应用程序中的此内容：

错误：找不到对象“ mapdata”

在调试器options(shiny.error = browser)中，我得到了：

    function (e) 
{
  if (inherits(e, "shiny.silent.error")) 
    return()
  handle <- getOption("shiny.error")
  if (is.function(handle)) 
    handle()
}

Answer 1

这应该有效

<select required>
<option value="">Select</option>
<option value="1">Option1</option>
</select>

希望这会有所帮助！

您如何将经过过滤的数据框传递给闪亮的应用程序中的left_join？

1 个答案: