Обновить config_example.yml

Reviewed-on: madeliri/shiny_form#1

.Rprofile

@@ -4,7 +4,6 @@ source("renv/activate.R")
 (function() {
 
   paths <- c(
-    "R_CONFIG_ACTIVE",
     "AUTH_DB_KEY"
   )
 
@@ -18,3 +17,16 @@ source("renv/activate.R")
     ))
   }
 })()
+
+(function() {
+
+  if (Sys.getenv("R_CONFIG_ACTIVE") == "") {
+    Sys.setenv(R_CONFIG_ACTIVE = "prod")
+    cli::cli_inform(c(
+      "i" = "Не указана конфигурация по умолчанию, автоматически установлен 'prod'. Для изменения конфигурации добавьте в {.file .Renviron}:"
+    ))
+    cli::cli_code(paste0("R_CONFIG_ACTIVE", "="))
+
+  }
+
+})()

.gitignore

@@ -3,6 +3,8 @@
 /_devel
 
 scheme.rds
+config.yml
+
 .Renviron
 .DS_Store
 .lintr

CHANGELOG.md

@@ -1,3 +1,11 @@
+### 0.17.0 (2026-04-24)
+##### features
+- модуль с задачами: для каждой записи в базе можно создать задачи, на главном экране отображается общее количество активных задач, по сроку выполнения на сегодня и просроченные задачи;
+- проверка на наличие орфанных записей в базе (сверка существующих ключей из главной таблицы `main` с каждой вложенной таблицей)
+
+##### changes
+- определение активных схем - теперь в файле `config.yml`
+
 ### 0.16.0 (2026-04-21)
 ##### features
 - возможность импорта данных в базу данных из ранее экспортированных .xlsx таблиц;

app.R

@@ -40,7 +40,7 @@ enabled_schemes <- setNames(names(enabled_schemes), enabled_schemes)
 schms <- readRDS("scheme.rds")
 
 # CHECK FOR PANDOC ----------
-rmarkdown::find_pandoc(dir = "/opt/homebrew/bin/")
+# rmarkdown::find_pandoc(dir = "/opt/homebrew/bin/")
 
 # TODO: dynamic button render depend on pandoc installation
 if (!rmarkdown::pandoc_available()) warning("Can't find pandoc!")

app/tasks.R

@@ -50,7 +50,7 @@ server <- function(id, values, scheme, mhcs) {
       if (!is.null(values$tasks_data)) {
 
         tasks_selector <- values$tasks_data |>
-          dplyr::filter(task_status != "completed") |>
+          dplyr::filter(task_status == "active") |>
           dplyr::pull(task_id)
 
         tasks_selector <- unique(c(values$tasks_id, tasks_selector))
@@ -117,11 +117,15 @@ server <- function(id, values, scheme, mhcs) {
       on.exit(db$close_db_connection(con, "display_task_modal"), add = TRUE)
 
       values$tasks_data <- if ("tasks" %in% DBI::dbListTables(con)) {
+
         DBI::dbGetQuery(con, glue::glue("SELECT * FROM tasks WHERE task_main_key = '{values$main_key}'")) |>
           dplyr::mutate(dplyr::across(c("task_datetime_created", "task_datetime_last_updated", "task_datetime_completed"), as.POSIXct)) |>
           dplyr::mutate(dplyr::across(c("task_due_date"), as.Date))
+
       } else {
+
         NULL
+
       }
 
       values$tasks_id <- NULL
@@ -159,6 +163,11 @@ server <- function(id, values, scheme, mhcs) {
       con <- db$make_db_connection(scheme(),"tasks_saving_button")
       on.exit(db$close_db_connection(con, "tasks_saving_button"), add = TRUE)
 
+      if (!values$main_key %in% db$get_keys_from_table("main", mhcs(), con)) {
+        showNotification("Невозможно создать задачу для данного ID (нет в базе)", type = "error")
+        return()
+      }
+
       id_and_types_list <- mhcs()$get_id_type_list("tasks")
       input_types   <- unname(id_and_types_list)
       input_ids     <- names(id_and_types_list)
@@ -230,6 +239,7 @@ server <- function(id, values, scheme, mhcs) {
       date_cols <- c("task_datetime_created", "task_datetime_completed", "task_datetime_last_updated", "task_due_date")
       date_cols <- which(colnames(values$tasks_data) %in% date_cols)
 
+
       output$dt_tasks <- DT::renderDataTable(
         DT::datatable(
           values$tasks_data,
@@ -353,7 +363,8 @@ server <- function(id, values, scheme, mhcs) {
     display_tasks_dt_review <- function() {
 
       values$tasks_data <- values$tasks_data |>
-        dplyr::select(task_id:task_datetime_last_updated)
+        dplyr::select(task_id:task_datetime_last_updated) |>
+        dplyr::arrange(task_due_date)
 
       rename_cols <- tasks_colnames[tasks_colnames %in% colnames(values$tasks_data)]
       
@@ -368,6 +379,7 @@ server <- function(id, values, scheme, mhcs) {
           colnames = rename_cols,
           extensions = c("FixedColumns"),
           # editable = 'cell',
+          class = 'cell-border stripe',
           selection = "single",
           options = list(
             dom = 'tip',

config.yml

@@ -1,20 +0,0 @@
-default:
-  form_app_version: 0.16.0
-  form_id: new_formy
-  form_name: NEW FORMY
-
-prod:
-  form_app_configure_path: "."
-  form_auth_enabled: false
-  form_schemes:
-    example_of_scheme: Тестовая база данных
-    main_register: АВЗ и АМИЛОИОДОЗЫ
-
-devel:
-  form_app_configure_path: _devel/new_bases
-  form_auth_enabled: false
-  form_app_version: 0.16.0 dev
-  form_schemes:
-    antifib: антифибротическая
-    d2tra_t: D2TRA_test
-    

config_example.yml

@@ -0,0 +1,10 @@
+default:
+  form_app_version: !expr config::get("form_app_version", file = "descr.yml")
+  form_id:          !expr config::get("form_id", file = "descr.yml")
+  form_name:        !expr config::get("form_name", file = "descr.yml")
+
+prod:
+  form_app_configure_path: "example_scheme"
+  form_auth_enabled: false
+  form_schemes:
+    example_of_scheme: Тестовая база данных

descr.yml

@@ -0,0 +1,4 @@
+default:
+  form_app_version: 0.17.0
+  form_id: new_formy
+  form_name: NEW FORMY

modules/db.R

@@ -394,8 +394,8 @@ local_db_backup <- function(
         file.remove(utils::tail(existed_files, length(existed_files) - backups_limit))
       }
 
-      # если количество существующих бэкапов равно имеющемуся и пора делать бэкап - делаем бэкап, удаляем послендий файл
-      if (dates[1] + schedule_days == Sys.Date()) {
+      # если количество существующих бэкапов равно имеющемуся и пора делать бэкап - делаем бэкап
+      if (dates[1] + schedule_days <= Sys.Date()) {
 
         file.copy(db_full_path, todays_backup)
         cli::cli_alert_success("создан {schedule_name}-бэкап для '{db_name}'")

modules/global_options.R

@@ -10,15 +10,19 @@ set_global_options = function(
   
   config_params_to_check <- c(
     "form_app_version",
+    "form_id",
+    "form_name",
     "form_app_configure_path",
     "form_auth_enabled",
-    "form_id",
-    "form_name"
+    "form_schemes"
   )
   
   expected_params_in_config <- config_params_to_check %in% names(config::get())
   if (!all(expected_params_in_config)) {
-    cli::cli_abort(c("ну так не пойдет:", paste("-", config_params_to_check[!expected_params_in_config])))
+    cli::cli_abort(c(
+      "Необходимо добавить в файл конфига  {.file config.yml} следующие параметры:", 
+      paste0(config_params_to_check[!expected_params_in_config], ":")
+    ))
   }
 
   options(