R Shiny访问动态输入

时间:2015-09-24 09:44:08

标签: r shiny-server shiny

我是新来的闪亮,我已经坚持了很长一段时间,到目前为止我尝试和阅读的东西没有结果。我有一个下拉列表,用户将选择一个问题,然后根据问题,下拉列表将填充响应数字。在用户选择响应编号后,将绘制地图。我已经完成了动态下拉列表。但我无法访问第二个用户输入,即响应号,因此我可以相应地为地图选择我的数据。我觉得这很简单我不知道为什么这不起作用。我收到了这个错误:

  

.getReactiveEnvironment()中的错误$ currentContext():操作不是   允许没有活跃的反应上下文。 (你试图做点什么   只能在反应性表达或观察者内部完成。)

我的代码如下,我暂时提出了特殊情况,后来我将扩展到列表的一般情况。

library(shiny)



runApp(list(
  ui = shinyUI(pageWithSidebar(
    headerPanel('Dialect Comparison'),
    sidebarPanel(
      selectInput('Question', 'Choose The Question', c('100. Do you cut or mow the lawn or grass?'='Q100',
                                                       '101. Do you pass in homework or hand in homework?'='Q101')),
      uiOutput('C')


    ),
    mainPanel(
      plotOutput('plot')
    )
  )
  ),


  server = function(input, output){
    output$C = renderUI({ 
      ques = input$Question
      selectInput('Choice', 'Choose The Response', seq(0,max(ling_data[,ques])))
    })



    ##########
    #The Data#
    ##########

    #text = renderPrint({'uhu'})
    #print(text()) #THIS WORKS

    choice_number = renderPrint({input$Choice}) #http://shiny.rstudio.com/gallery/dynamic-ui.html
    print(choice_number()) #it fails here

    ...
    })    

  }
))

1 个答案:

答案 0 :(得分:1)

只能在使用以下方法之一创建的反应范围内访问反应变量(包括输入):

  • shiny::reactiveshiny::eventReactive
  • shiny::observeshiny::observeEvent
  • shiny::render*

shiny::isolate阻止。

对于日志记录等操作,您可能需要observe阻止:

observe({print(choice_number())})