R/ViewShiny.R

In jreps/shinyModuleViewer: Viewing OHDSI results via shiny modules

#' viewShiny
#'
#' @description
#' Open the shiny app
#'
#' @details
#' User specifies the shiny app location and this function opens it
#' 
#' @param config  The json with the app config                            
#' @return
#' The shiny app will open
#'
#' @export
viewShiny <- function(config){
  
  if(missing(config)){
    ParallelLogger::logInfo('Using default config')
    config <- ParallelLogger::loadSettingsFromJson(system.file('shiny', 'config.json', package = 'shinyModuleViewer'))
  }
  
  app <- shiny::shinyApp(ui(config=config), server(config = config))
  shiny::runApp(app)
}