如何将 selectInput 存储在向量中？

Question

我正在尝试将 selectInput 保存在向量中。

在我的用户界面中，我有：

selectInput("my_ID", "Search for a name", unique(datatable$names), "Henry")

在我的服务器中，我想将此输入保存在一个变量中以供以后使用。

这基本上就是我想要的：

selectedNames <- input$my_ID

当然，这行不通。 所以我试过这个：

selectedNames <- reactive(input$my_ID)

但我再次收到此警告：

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

我也尝试使用观察者和我在互联网上找到的不同代码块来完成它，但没有任何效果。

最后，我想使用 selectedNames 是这样的过滤器：

example <- datatable %>% filter(names %in% selectedNames())

我怎样才能解决这个问题？

Answer 1

尝试selectedNames <- reactive({input$my_ID})

然后在应用程序的其余部分使用selectedNames() 。

请参阅反应性 - 概述。

更新

工作测试示例：

library(shiny)

datatable <- data.frame(names = c('Henry', 'Charles', 'Robert', 'William'))

ui <- fluidPage(
    selectInput("my_ID", "Search for a name", unique(datatable$names), "Henry")
)

server <- function(input, output, session) {
    selectedNames <- reactive({input$my_ID})

    observeEvent(req(selectedNames()), {
        example <- datatable %>% filter(names %in% selectedNames())
        print(example)
    })
}

shinyApp(ui, server)

你真的不需要反应式，可以直接使用input$my_ID ，如下所示：

library(shiny)

datatable <- data.frame(names = c('Henry', 'Charles', 'Robert', 'William'))

ui <- fluidPage(
    selectInput("my_ID", "Search for a name", unique(datatable$names), "Henry")
)

server <- function(input, output, session) {
    observeEvent(req(input$my_ID), {
        example <- datatable %>% filter(names %in% input$my_ID)
        print(example)
    })
}

shinyApp(ui, server)