-
Notifications
You must be signed in to change notification settings - Fork 0
/
defaultConfig.R
85 lines (76 loc) · 3.7 KB
/
defaultConfig.R
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
uiAttr <- function(label = NULL,
min = NULL,
max = NULL,
value = NULL,
step = NULL,
animate = FALSE) {
x <- list(label = label,
min = min,
max = max,
value = value,
step = step,
animate = FALSE)
}
initialConfig <- function (unitLength = uiAttr(label = "Length unit",
value = "m"),
unitTime = uiAttr(label = "Time unit",
value = "d"),
time = uiAttr(label = "Time",
min = 0.1,
max = 100,
value = 10,
step = 0.1,
animate = TRUE),
basinLength = uiAttr(label = "Basin length",
min = 5,
max = 100,
value = 10,
step = 1),
basinWidth = uiAttr(label = "Basin width",
min = 5,
max = 100,
value = 10,
step = 1),
infiltrationRate = uiAttr(label = "Infiltration rate",
min = 0.1,
max = 10,
value = 1,
step = 0.1),
horizConductivity = uiAttr(label = "Horizontal aquifer conductivity",
max = 1000,
value = 10,
step = 0.1),
iniHead = uiAttr(label = "Initial saturated aquifer thickness",
min = 1,
max = 100,
value = 10,
step = 1),
xDistances = uiAttr(label ="x min/max distances",
min = -1000,
max = 1000,
value = c(-200,200)
),
xSpacing = uiAttr(label ="x spacing",
min = 1,
max = 50,
value = 10),
yMax = uiAttr(label = "max Y value (m)",
min = 0,
max = 100,
step = 0.25,
value = 0)
) {
x <- list(unitLength = unitLength,
unitTime = unitTime,
time = time,
basinLength = basinLength,
basinWidth = basinWidth,
infiltrationRate = infiltrationRate,
horizConductivity = horizConductivity,
iniHead = iniHead,
xDistances = xDistances,
xSpacing = xSpacing,
yMax = yMax
)
return(x
}