Nothing
###
### These are initialization steps that occur within the shinyServer function
### split them out to streamline files
###
VolumeRoots = c(home="~",getVolumes()(),temp=tempdir(),wd="./") #function from shinyFiles
###
### reactive values for skelesim class management
###
rValues <- reactiveValues(ssClass=ssClassInit(),
scenarioNumber=1,
lstScenario=1,
migrationNumber=0,
lstMigration = 0,
localDemoNumber = 1,
lstLocalDemo = 1,
EpochNumber = 1,
lstEpoch = 1,
history=NULL,
msg=NULL)
####this reactiveValue contains values that are needed for file operations
####cannot use reactive due to constraints imposed by shinyFiles
supportValues <- reactiveValues(ssLoadEnv=new.env(), #environment to load an rdata file into
objLabel=NULL, #name of ssClass object for saving
simroot = NULL,
OS = .Platform$OS.type, #used when setting up simulation runs
simexec = c("fsc251","fsc252","fsc25221","fsc251.exe","fsc252.exe","fsc25221.exe")
)
###
### reactive values for coordinates
###
pointValues <- reactiveValues(click=NULL,
dblclick=NULL,
hover=NULL,
brush=NULL)
debug <- reactive({FALSE}) #set to true to create a bunch of messages to the console
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.