本來我創建這個閃亮的界面,需要在參數「公司ID」和「日期」,但在這裏我們有一個問題:大多數人不按ID知道與我們合作的公司,只有自己名稱,即(麥當勞,Radioshack)。交互改變selectInput選擇
所以我想最好創建這樣
我現在的想法是在一個表中通過包括我們的所有合作公司的名單和他們的ID來global.R搜索功能。然後傳入textInput作爲搜索變量並在服務器端執行搜索。但是,如何將searchResults傳遞迴selectInput面板的用戶界面,我迷失了方向?
我當前的代碼:
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
我已經受夠了這種成功。以下是我還沒有嘗試的另一種方法:https://groups.google.com/forum/?fromgroups=#!topic/shiny-discuss/JGJx5A3Ge-A – GSee 2013-04-23 16:58:16
感謝Sacha爲我工作。 GSee:新的發展將會是驚人的! – 2013-04-23 17:09:39
這在R Markdown中不起作用。有關如何在R Markdown中做到這一點的任何想法? – NewNameStat 2014-11-06 15:33:05