相关疑难解决方法(0)

最初我创建了这个闪亮的界面,其中包含参数"公司ID"和"日期",但这里我们遇到了一个问题:大多数人都不知道我们通过他们的id工作的公司,只有他们的名字,即(McDonalds,Radioshack) .

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

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

我目前的代码:

ui.R

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(),

  ),

server.R

  shinyServer(function(input, output) {

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

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

global.R

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

partnersList就是这种格式

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