Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
CSIRO-INRA
landsepi
Commits
ff43b568
Commit
ff43b568
authored
Jun 17, 2021
by
Loup
Browse files
update audpc100S
parent
9da7d2c7
Changes
1
Hide whitespace changes
Inline
Side-by-side
inst/shiny-landsepi/server.R
View file @
ff43b568
...
...
@@ -10,7 +10,7 @@ simul_params <- setOutputs(simul_params, list(
epid_outputs
=
"audpc"
,
evol_outputs
=
""
,
thres_breakdown
=
50000
,
GLAnoDis
=
1.48315
,
audpc100S
=
0.
38
audpc100S
=
0.
76
))
...
...
@@ -657,6 +657,9 @@ server <- function(input, output, session) {
shiny
::
observeEvent
(
input
$
runSimulation
,
{
withProgress
(
message
=
"Running Simulation, please wait..."
,
value
=
0
,
{
print
(
simul_params
)
progressBar
<-
Progress
$
new
()
progressBar
$
set
(
value
=
NULL
,
message
=
"Running Simulation, please wait..."
)
# setwd(paste0(ROOT_PATH,"/www/tmp/"))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment