r - 以交互方式更改 selectInput 选项

Question

最初我创建了这个带有参数“company id”和“date”的 Shiny 界面，但这里我们遇到了一个问题:大多数人不知道他们的 id 与我们合作的公司，只知道他们的名字，即(McDonalds，Radioshack) .

所以我想理想地创建一个这样的搜索功能


我目前的想法是将包含我们所有合作伙伴公司的列表及其 ID 的表格传递给 global.R。然后传入 textInput 作为搜索变量并在服务器端执行搜索。但是，我迷失了如何将 searchResults 传递回 selectInput 面板上的 UI？

我当前的代码:

用户界面

library(shiny)

shinyUI(pageWithSidebar(


  sidebarPanel(

    textInput("nameSearch", "Or, Search for company name", 'McDonald'),
    selectInput("partnerName", "Select your choice", list( "searchResults" ),
    br(),
    submitButton("Update View"),
    br(),

  ),

服务器.R

  shinyServer(function(input, output) {

  #subTable
  searchResult<- reactive({
    subset(partners, grepl(input$nameSearch, partners$name))
  })

  output$searchResults <- renderTable({ 
    searchResult[,1]
    })

全局.R

partners<- read.csv("partnersList.csv", fill=TRUE)

合作伙伴列表就是这种格式

    name            id 
 ------------------
    McDonalds        1
    Wendy's          2
    Bestbuy          3 

Answer 1

您需要使 UI 具有响应性。我还没有测试过这个(也错过了数据)，但我认为应该可以工作。在 server.R添加:

output$selectUI <- renderUI({ 
selectInput("partnerName", "Select your choice", searchResult()[,1] ),
})

在 ui.R将 selectInput 替换为:

htmlOutput("selectUI")