secrapp/reactiveValues.R at master · MurrayEfford/secrapp · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
## reactiveValues

bookmarkrv          <- reactiveValues(value   = FALSE, captfilename="", captxlsname="", maskfilename="")
capttextrv          <- reactiveValues(value   = FALSE)
current             <- reactiveValues(unit    = "ha")
currentIDrv         <- reactiveValues(value   = "")
detectrv            <- reactiveValues(value   = 'g0')
Drv                 <- reactiveValues(current = FALSE, xy = NULL, value = NULL)
filtercaptrv        <- reactiveValues(value   = FALSE)
filtermaskrv        <- reactiveValues(value   = FALSE)
fitrv               <- reactiveValues(value   = NULL)
poprv               <- reactiveValues(v       = 0)  # used to invalidate and re-plot popn
pxyrv               <- reactiveValues(current = FALSE, xy = NULL, value = NULL)
RSErv               <- reactiveValues(current = FALSE, value = NULL, adjRSE = NULL)
selectingfieldsrv   <- reactiveValues(value   = FALSE)
selectinganalysesrv <- reactiveValues(value   = FALSE)
sumrv               <- reactiveValues(value   = read.csv(text = paste(summaryfields, collapse = ", ")))
traptextrv          <- reactiveValues(value   = FALSE)
timerv              <- reactiveValues(timewarning = timewarning,
                                      timelimit = timelimit,
                                      expected = NA)

## using advice of Joe Cheng 2018-03-23 to allow resetting of fileInputs
## https://stackoverflow.com/questions/49344468/resetting-fileinput-in-shiny-app

captrv      <- reactiveValues(data = NULL, clear = FALSE)
traprv      <- reactiveValues(data = NULL, clear = FALSE)
importrv    <- reactiveValues(data = NULL, clear = FALSE)
secrrv      <- reactiveValues(data = NULL, clear = FALSE)
polyrv      <- reactiveValues(data = NULL, clear = FALSE)
maskrv      <- reactiveValues(data = NULL, clear = FALSE)
covariaterv <- reactiveValues(data = NULL, clear = FALSE, covariates = NULL, names = character(0))

# accumulate log messages
log_data <- reactiveValues(messages = character(0))

##############################################################################