inst/shiny/skeleSimShinyGUI/serverInit.R

In christianparobek/skeleSim: Genetic Simulation Engine

###
### 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