R/modules/db.R

@@ -1,3 +1,7 @@
+options(box.path = here::here())
+box::use(
+  R/modules/utils
+)
 
 #' @export
 #' @description Function to open connection to db, disigned to easy dubugging.
@@ -102,9 +106,6 @@ get_dummy_data = function(type) {
 #' типу данных
 get_dummy_df = function(forms_id_type_list) {
 
-  options(box.path = here::here())
-  box::use(R/modules/utils)
-
   purrr::map(
     .x = forms_id_type_list,
     .f = utils$get_empty_data
@@ -113,6 +114,20 @@ get_dummy_df = function(forms_id_type_list) {
 
 }
 
+#' @description
+#' Генерация пустого датасета с пустыми значениями соответствующие
+#' типу данных
+get_query_df = function(forms_id_type_list) {
+
+  names_and_types <- purrr::map(
+    .x = forms_id_type_list,
+    .f = utils$get_sql_format
+  )
+
+  paste(names(names_and_types), unname(names_and_types), collapse = ",\n")
+
+}
+
 #' @description
 #' Сравнение полей в существующей в базе данных таблице и попытка
 #' коррекции таблицы

R/modules/utils.R

@@ -260,6 +260,16 @@ get_empty_data = function(type) {
   if (type %in% c("number")) as.character(NA)
 }
 
+#' @export
+#' @description
+#' Функция возращает пустое значение для каждого типа формы
+get_sql_format = function(type) {
+  if (type %in% c("text", "select_one", "select_multiple")) return("TEXT")
+  if (type %in% c("radio", "checkbox")) return("TEXT")
+  if (type %in% c("date")) return("REAL")
+  if (type %in% c("number")) return("TEXT")
+}
+
 #' @export
 #' @description Function to update input forms (default variants only)
 #' @param id - input form id;