R/es_start.R

In mYstar/easyshiny: Simple Set of Functions to Fill a Shiny Template

#' @title Start Easyshiny App.
#' @description Create the Shiny server and UI code and start the server.
#' The Shiny project will contain all previously added data and visualization.
#'
#' @param title The title to insert in the main menu.
#'
#' @return The output from \code{\link{shinyApp}}.
#' @importFrom checkmate assert_string
#' @importFrom shiny shinyApp
#' @export
es_start <- function(title='Easy Shiny Project') {

  # argument checks
  assert_string(title)

  files <- get('files', envir = appData)
  visuals <- get('visuals', envir = appData)
  reactives <- get('reactives', envir = appData)

  ui <- es_build_ui(title, visuals)

  server <- function(input, output) {

      # create the filereader functions
      if(length(files) > 0) {
        for(idx in 1:nrow(files)) {
          assign(
            files[idx,]$id,
            eval(files[idx,]$reader)
          )
        }
      }

      # create all reactive values
      if(length(reactives) > 0) {
        for(idx in 1:nrow(reactives)) {
          assign(
            reactives[idx,]$id,
            eval(reactives[idx,]$rvalue)
          )
        }
      }

      # render all the visuals
      if(length(visuals) > 0) {
        apply(visuals, 1, function(line) {
          if(! is.null(line$render_func) ) {
            output[[line$id]] <- eval(line$render_func)
            output[[paste0('win_', line$id)]] <- eval(line$render_func)
          }
        }
      )
    }
  }
  shinyApp(ui = ui, server = server)
}