inst/shinyapp/capionis/global.R

In salmuz/WAHEco: Custom Web Application Web for Health Economics Decision Making

library(shinydashboard)
library(R6)
library(shiny)
library(shinyAce)
library(heemod)
library(WAHEco)

# loading default data test 
load(system.file("extdata", "mortalityData.RData", package="WAHEco"))
load(system.file("extdata", "stents.RData", package="WAHEco"))

source('utils.R')
source('dashboard/dashboard.module.R')
source('setting/setting.module.R')


# Add each module to main application web Capionis 
appRoot <- AppRoot$new(title = tags$a(href ='/', tags$img(src='images/capionis.png')))
appRoot$addModule(dashboard)
appRoot$addModule(setting)