inst/app/server.R

In Senbee/radiant.biostat: Biostatistics menu for Radiant. Builds on the radiant.data package

shinyServer(function(input, output, session) {

  ## source shared functions
  source(file.path(getOption("radiant.path.data"),"app/init.R"), encoding = getOption("radiant.encoding"), local = TRUE)
  source(file.path(getOption("radiant.path.data"),"app/radiant.R"), encoding = getOption("radiant.encoding"), local = TRUE)
  source("help.R", encoding = getOption("radiant.encoding"), local = TRUE)

  ## help ui
  # output$help_design_ui <- renderUI({
  #   sidebarLayout(
  #     sidebarPanel(
  #       help_data_panel,
  #       help_design_panel,
  #       uiOutput("help_text"),
  #       width = 3
  #     ),
  #     mainPanel(
  #       HTML(paste0("<h2>Select help files to show and search</h2><hr>")),
  #       htmlOutput("help_data"),
  #       htmlOutput("help_design")
  #     )
  #   )
  # })

  ## packages to use for example data
  options(radiant.example.data = c("radiant.data","radiant.biostat"))

  ## source data & app tools from radiant.data
  for (file in list.files(c(file.path(getOption("radiant.path.data"),"app/tools/app"),
                            file.path(getOption("radiant.path.data"),"app/tools/data")),
                          pattern="\\.(r|R)$", full.names = TRUE))
    source(file, encoding = getOption("radiant.encoding"), local = TRUE)

  ## 'sourcing' radiant's package functions in the server.R environment
  if (!"package:radiant.biostat" %in% search() && getOption("radiant.path.biostat") == "..") {
    ## for shiny-server and development
    for (file in list.files("../../R", pattern="\\.(r|R)$", full.names = TRUE))
      source(file, encoding = getOption("radiant.encoding"), local = TRUE)
  } else {
    ## for use with launcher
    radiant.data::copy_all(radiant.biostat)
  }

 	## source analysis tools for biostat app
  for (file in list.files(c("tools/analysis"), pattern="\\.(r|R)$", full.names = TRUE))
    source(file, encoding = getOption("radiant.encoding"), local = TRUE)

  ## save state on refresh or browser close
  saveStateOnRefresh(session)

})