dev/test_mod_choose_pipeline.R

In samWieczorek/Prostar: Provides a GUI for DAPAR

source(file.path('../inst/ProstarApp/server', 'mod_choose_pipeline.R'), local=TRUE)$value


ui <- fluidPage(
  tagList(
    #uiOutputselectInput('dataType', 'DataType', choices = c('protein', 'peptide'), selected=character(0)),
    mod_choose_pipeline_ui('pipe')
  )
)

# Define server logic to summarize and view selected dataset ----
server <- function(input, output, session) {
  
  rv <- reactiveValues(
    res = NULL
  )
  
  rv$res <- mod_choose_pipeline_server('pipe', 
                                       dataType = reactive({'protein'}))
  
  observe({
    rv$res()
    print(rv$res())
  })
  
}


shinyApp(ui, server)