1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
## global.R ##
library(Luminescence)
library(RLumShiny)
library(shiny)
library(data.table)
library(rhandsontable)
if (utils::packageVersion("Luminescence") < "0.9.0")
stop(
"\n\n", rep("#", 30), "\n",
"This application requires 'Luminescence' version >=0.9.0.\n",
"See ?Luminescence::install_DevelopmentVersion() to get the ",
"latest version of the package.",
"\n", rep("#", 30), "\n\n",
call. = FALSE)
data("ExampleData.ScaleGammaDose")
example_data <- ExampleData.ScaleGammaDose
f <- function(x, d = 3) formatC(x, digits = d, format = "f")
enableBookmarking(store = "server")
|
