###
### 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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.