r - 传递 react 数据作为updateSelectizeInput的选择

我试图将反应性数据传递给updateSelectizeInput，但出现以下错误：

.getReactiveEnvironment（）$ currentContext（）中的错误：
没有活动的响应上下文，不允许进行操作。（您试图做一些只能从反应式表达式或观察器内部完成的操作。）

我的代码如下：

用户界面

 library(shiny)


  ui_panel <-
  tabPanel("Text Input Test",
          sidebarLayout(
           sidebarPanel(


           selectizeInput('Organisations', label = "Organisation Search",
   choices = NULL, options = list(
             placeholder = 'Type the organisation name', maxOptions = 10,
   maxItems = 1, searchConjunction = 'and')),
           tags$style(type="text/css",
                      ".selectize-input::after{visibility:hidden;};"
                      ),


           br(),
           selectInput(
             inputId="selectData",
             label=" ",
             choices=c("Universities", "Hospitals")
           ),

           br()
         ),
         mainPanel(
           tabsetPanel(

             tabPanel("output of Organisation search
 details",htmlOutput("orgsearchdetails"))

           )
         )
       ))


ui <- shinyUI(navbarPage(" ",ui_panel))

服务器

   library(shiny)


  shinyServer(
   function(input, output, session) {



    orgdata <- reactive({if(input$selectData=='Universities'){
    orgdata <- read.csv("universities.csv")
   }else if (input$selectData=='Hospitals'){
    orgdata <- read.csv("hospitals.csv")
    }
    orgdata
   })




    updateSelectizeInput(session, 'Organisations', choices =
   as.character(unique(
     orgdata()$name)), server = TRUE)




  output$orgsearchdetails <-renderUI({


    })


  session$onSessionEnded(function() { dbDisconnect(con) })
  })

有什么方法可以将selectInput的反应性传递给updateSelectizeInput吗？

我选择使用updateSelectizeInput而不是反应性的selectInput，以避免在应用程序启动时填充文件。

我们非常欢迎您提供任何帮助或见识。先感谢您。

最佳答案

我不是一个聪明的专家，但是从我一直在构建的仪表板中，我会做的是。我将创建一个名为reactiveValues的selectedData变量。然后在我的observeEvent中，我将拉出csv并更新selectedData。我之所以选择在应用程序中使用reactiveValues是因为它们可以是有状态的，而不是总是对某些输入做出反应，并且我可以在需要相同信息的应用程序的其他区域中调用它们。至于使用observeEvent，这很简单，因为您可以将updateSelectizeInput包装在观察器中。

shinyServer(
  function(input, output, session) {
    # init reactiveValues
    selectedData <- reactiveValues()

    observeEvent(input$selectData, {
      if (input$selectData == "Universities") {
        selectedData$orgdata <- read.csv("universities.csv")
      } else if (input$selectData == "Hospitals") {
        selectedData$orgdata <- read.csv("hospitals.csv")
      }

      updateSelectizeInput(session, "Organisations",
                           choices = as.character(unique(selectedData$orgdata$name)),
                           server = TRUE)
    })

    ... # rest of your code

  }
)

关于r - 传递 react 数据作为updateSelectizeInput的选择，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/50393808/