没有活动的反应上下文 ggvis 不允许操作

Question

我正在尝试在闪亮的应用程序中创建一个简单的 ggvis 图。下拉菜单有两个选择：mpv 和 mpc。这两个选项都是双列数据框，第一列为 V1，第二列为 V2。我希望能够 select mpc 或 mpv 并将 ggvis 图更新到正确的位置。我有以下 ui 和服务器 r 代码：

# ui.R
shinyUI(fluidPage(
titlePanel("Barcelona"),
sidebarLayout(
sidebarPanel(
helpText("Display information about the selected variable"),
  selectInput("var", 
              label = "Choose a variable to display",
              choices = c("mpc", "mpv"),                 
              selected = "mpc")),

mainPanel(
  ggvisOutput("meanpc"))))) 

# server.R
shinyServer(
function(input, output) {
mpc <- mean.price.country
mpv <- mean.price.vintage

selection <- reactive({
  as.numeric(input$var)
})

  selection() %>%
    ggvis(~V1, ~V2) %>%
    layer_bars() %>%
    bind_shiny("meanpc")
})

我收到以下错误：

.getReactiveEnvironment()$currentContext() 错误：没有活动的反应上下文不允许操作。（你试图做一些只能从反应式表达式或观察者内部完成的事情。）

知道错误是什么吗？谢谢你。

Answer 1

您需要将其打包在一个 observe 语句中，如下所示：

library(shiny)
library(ggvis)
library(dplyr)
# ui.R
u <- shinyUI(fluidPage(
  titlePanel("Barcelona"),
  sidebarLayout(
    sidebarPanel(
      helpText("Display information about the selected variable"),
      selectInput("var", 
                  label = "Choose a variable to display",
                  choices = c("mpc", "mpv"),                 
                  selected = "mpc")),
    mainPanel(
      ggvisOutput("meanpc"))))) 

# server.R
s <- shinyServer(
  function(input, output) {
    n <- 200
    set.seed(1234)
    wine <- data.frame( vintage=sample(c(2000:2015),n,replace=T), 
                        price=runif(n,10,150),
                        stock=runif(n,100,1500),
                        country=sample(c("Country-1","Country-2","Country-3"),n,replace=T) 
                        )
    mpc <- wine %>% group_by(country) %>% summarize( V1=mean(stock), V2=mean(price) )
    mpv <- wine %>% group_by(country) %>% summarize( V1=mean(stock), V2=mean(vintage) )

    selection <- reactive({ifelse (input$var=="mpc",return(mpc),return(mpv))})

    observe({
    selection() %>%
      ggvis(~V1, ~V2) %>%
      layer_bars() %>%
      bind_shiny("meanpc")
    })
  })
shinyApp(u,s)

产量：

没有活动的反应上下文 ggvis 不允许操作

operating not allowed without an active reactive context ggvis

r

shiny

ggvis