Dear All,
I am thinking about depending Choose prompt (selectizeInput).
The second "Choose prompt" depends on the first one.
The first one list the Studies.
The second lists Cases depending which study is selected.
In the following code The Cases are specific for Study 4 (Studies[4,1]).
I would like to change Studies[4,1] by a variable depending on which study is selected
Thanks
Karim
ui.R
sidebarLayout(
sidebarPanel(
# Select Studies
selectizeInput('StudiesID', 'Studies 1',
state.name, multiple = TRUE),
# Select Cases
selectizeInput('CasesID', 'Cases 1', choices=NULL , multiple = TRUE),
))
mainPanel(
verbatimTextOutput('Studies_values'),
tableOutput('Cases_values')
)
server.R
## Select Studies
library(cgdsr)
cgds<-CGDS("
http://www.cbioportal.org/public-portal/")
Studies <- getCancerStudies(cgds)
##
updateSelectizeInput(session, 'StudiesID', choices = Studies[,1])
output$Studies_values <- renderPrint({
list(List_Studies = input$StudiesID)
})
## update Cases
#reactive({
#output$cases <- renderPrint(input$cases)
Cases <- getCaseLists(cgds,Studies[4,1])
updateSelectizeInput(session, 'CasesID', choices = Cases[,1])
output$Cases_values<- renderPrint({
list(List_Cases = input$CasesID)
})