why this does not work?

[Karim Mezhoud]

server.R


shinyServer(function(input, output,session) {
  library(cgdsr)
  cgds<-CGDS("http://www.cbioportal.org/public-portal/")
 
  Studies <- getCancerStudies(cgds)
 
  updateSelectizeInput(session, 'StudyID2', choices = Studies[,1])
 
 
 
   Cases<-  getCaseLists(input$StudyID2)
  
   updateSelectizeInput(session, 'CaseID', choices = Cases[,1])
 
 

 
  output$ProfData <- renderDataTable({   
   
    getProfileData(cgds, c("HBXIP" ,"C16orf5" ,"SELS"  , "MAGI2-IT1"),input$CaseID, "brca_tcga_rna_seq_v2_mrna")
  })
   
 
 
})

ui.R


shinyUI(fluidPage(
 


  selectizeInput("StudyID2", label = h4("Select Study ID"),choices= NULL),
 
  selectizeInput("CaseID", label = h4("Select Case ID"),choices= NULL),
 
  hr(),

 

 
  fluidRow(
    dataTableOutput(outputId="ProfData")
  )
 
))

[Dean Attali]

It'd be easier to answer if you said what you expect to see and what actually happens instead of us having to guess what "not work" means. Also, if you use the special formatting tags it'll make it a lot easier for us to read your code :)

shinyApp(
 ui = ...
)