diff --git a/app.R b/app.R index 681938d..59557d3 100644 --- a/app.R +++ b/app.R @@ -14,9 +14,9 @@ suppressPackageStartupMessages({ # SOURCE FILES ============================ box::purge_cache() box::use( + configs/enabled_schemes[enabled_schemes], modules/utils, modules/global_options, - modules/global_options[enabled_schemas], modules/db, modules/data_validation, modules/scheme_generator[scheme_R6] @@ -29,9 +29,8 @@ HEADER_TEXT <- sprintf("%s (%s)", Sys.getenv("FORM_TITLE", "NA"), Sys.getenv("F global_options$set_global_options( shiny.host = "0.0.0.0" - # enabled_schemas = "example_of_scheme" + # enabled_schemes = "example_of_scheme" ) -global_options$check_and_init_scheme() # CHECK FOR PANDOC # TEMP ! NEED TO HANDLE @@ -147,8 +146,8 @@ server <- function(input, output, session) { nested_form_id = NULL ) - scheme <- reactiveVal(enabled_schemas[1]) # наименование выбранной схемы - mhcs <- reactiveVal(schms[[enabled_schemas[1]]]) # объект для выбранной схемы + scheme <- reactiveVal(enabled_schemes[1]) # наименование выбранной схемы + mhcs <- reactiveVal(schms[[enabled_schemes[1]]]) # объект для выбранной схемы observers_started <- reactiveVal(NULL) main_form_is_empty <- reactiveVal(TRUE) @@ -166,7 +165,7 @@ server <- function(input, output, session) { shiny::radioButtons( "schmes_selector", label = strong("Выбрать базу данных для работы:"), - choices = enabled_schemas, + choices = enabled_schemes, selected = scheme() ), "Для начала работы нужно создать новую запись или загрузить существующую!", @@ -662,7 +661,7 @@ server <- function(input, output, session) { need(values$main_key, "⚠️ Необходимо указать id пациента!") ) span( - strong("Таблица: "), names(enabled_schemas)[enabled_schemas == scheme()], + strong("Таблица: "), names(enabled_schemes)[enabled_schemes == scheme()], br(), strong("ID: "), values$main_key ) @@ -896,7 +895,7 @@ server <- function(input, output, session) { list_of_df[["meta"]] <- dplyr::tribble( ~`Параметр` , ~`Значение`, "Пользователь" , ifelse(AUTH_ENABLED, res_auth$user, "anonymous"), - "Название базы" , names(enabled_schemas)[enabled_schemas == scheme()], + "Название базы" , names(enabled_schemes)[enabled_schemes == scheme()], "id базы" , scheme(), "Время выгрузки" , format(Sys.time(), "%d.%m.%Y %H:%M:%S"), ) diff --git a/configs/enabled_schemes.R b/configs/enabled_schemes.R new file mode 100644 index 0000000..aad923e --- /dev/null +++ b/configs/enabled_schemes.R @@ -0,0 +1,5 @@ +#' @export +enabled_schemes <- c( + `Тестовая база данных` = "example_of_scheme" + # `D2TRA (для отладки)` = "d2tra_t" +) \ No newline at end of file diff --git a/modules/global_options.R b/modules/global_options.R index a1e082b..52300d3 100644 --- a/modules/global_options.R +++ b/modules/global_options.R @@ -18,23 +18,18 @@ set_global_options = function( ) } -#' @export -enabled_schemas <- c( - `Тестовая база данных` = "example_of_scheme" - # `D2TRA (для отладки)` = "d2tra_t" -) - #' @export check_and_init_scheme = function() { cli::cli_inform(c("*" = "проверка схемы...")) files_to_watch <- c( + "configs/enabled_schemes.R", "modules/scheme_generator.R", "modules/utils.R" ) - scheme_names <- enabled_schemas + scheme_names <- enabled_schemes scheme_file <- paste0("configs/schemas/", scheme_names, ".xlsx") scheme_file <- stats::setNames(scheme_file, scheme_names)