Commit d659934a authored by Jonathan Mang's avatar Jonathan Mang :bulb:
Browse files

Added 'demo' as dummy if sitename is not provided to use the exampledata

Showing with 23 additions and 8 deletions
+23 -8
...@@ -54,6 +54,7 @@ module_dashboard_server <- ...@@ -54,6 +54,7 @@ module_dashboard_server <-
# check if sitename is present # check if sitename is present
if (nchar(input_re()[["moduleConfig-config_sitename"]]) < 2 || if (nchar(input_re()[["moduleConfig-config_sitename"]]) < 2 ||
any(grepl("\\s", input_re()[["moduleConfig-config_sitename"]]))) { any(grepl("\\s", input_re()[["moduleConfig-config_sitename"]]))) {
# site name is missing:
shiny::showModal(modalDialog( shiny::showModal(modalDialog(
title = "Invalid values", title = "Invalid values",
paste0( paste0(
...@@ -61,9 +62,11 @@ module_dashboard_server <- ...@@ -61,9 +62,11 @@ module_dashboard_server <-
"the site name configuration." "the site name configuration."
) )
)) ))
error_tmp <- T ## TODO: Delete the demo-sitename and re-enable the error_tmp
# site name is present rv$sitename <- "Demo"
# error_tmp <- T
} else { } else {
# site name is present:
rv$sitename <- input_re()[["moduleConfig-config_sitename"]] rv$sitename <- input_re()[["moduleConfig-config_sitename"]]
} }
......
port = 3838 port = 3838
utils_path = system.file("demo_data/utilities", output_dir = "output/"
package = "DQAstats")
## debugging the MIRACUM stuff:
## ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
utils_path = DQAstats::clean_path_name(system.file("application/_utilities",
package = "miRacumDQA"))
mdr_filename = "mdr.csv" mdr_filename = "mdr.csv"
config_file = system.file("application/_settings/demo_settings_INTERNAL.yml", config_file = system.file("application/_settings/demo_settings_INTERNAL.yml",
package = "DQAgui") package = "DQAgui")
## ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
## debugging testdata:
## ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
# utils_path = system.file("demo_data/utilities",
# package = "DQAstats")
# mdr_filename = "mdr_example_data.csv"
# config_file = system.file("demo_data/utilities/settings/demo_settings.yml",
# package = "DQAstats")
## ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
# debugging
launch_app( launch_app(
port = port, port = port,
utils_path = DQAstats::clean_path_name(system.file("application/_utilities", utils_path = utils_path,
package = "miRacumDQA")),
mdr_filename = mdr_filename, mdr_filename = mdr_filename,
config_file = config_file config_file = config_file
) )
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment