what

modules/global_options.R

@@ -5,7 +5,7 @@ set_global_options = function(
   APP.DEBUG = FALSE,
   # APP.FILE_DB = fs::path("data.sqlite"),
   shiny.host = "127.0.0.1",
-  shiny.port = 1337,
+  shiny.port = 1338,
   ...
 ) {
   options(

modules/scheme_generator.R

@@ -22,6 +22,10 @@ scheme_R6 <- R6::R6Class(
       check <- private$reserved_table_names %in% private$nested_forms_names
       if (any(check)) cli::cli_abort(c("нельзя использовать данные имена вложенных таблиц:", paste("- ", private$reserved_table_names[check])))
 
+      # проверка на длину строк
+      check <- (nchar(private$nested_forms_names) > 31)
+      if (any(check)) cli::cli_abort(c("нельзя использовать имена длиной более 31 символа:", paste("- ", private$nested_forms_names[check])))
+
       purrr::walk(
         .x = purrr::set_names(private$nested_forms_names),
         .f = \(nested_form_id) {

modules/utils.R

@@ -263,7 +263,8 @@ update_forms_with_data = function(
   local_delimeter = getOption("SYMBOL_DELIM"),
   ns
 ) {
-
+  
+  options(box.path = here::here())
   box::use(modules/data_manipulations[is_this_empty_value])
 
   # print("-----------------")