forked from jankovicd/STEER
-
Notifications
You must be signed in to change notification settings - Fork 0
/
app.R
15 lines (10 loc) · 809 Bytes
/
app.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
list_of_packages <- c("shiny", "rdrop2") # list of packages required to run the code
# list_of_packages <- c("shiny") # list of packages required to run the code
lapply(list_of_packages, # install and load all relevant packages
function(x) if(!require(x,character.only = TRUE)) install.packages(x, dep=TRUE))
options(encoding = "UTF-8")
dummy_app <- TRUE # When set to FALSE, requires a unique ID code to run the app. ID codes are set in "manual_inputs.R"
runApp(appDir = file.path(getwd()), # This looks for the ui.R, server.R and www folder within the wd. Do not rename these.
launch.browser = TRUE, # This line will open the application in the user's default browser
quiet = FALSE,
display.mode = "normal")