0.14.1 go

helpers/functions.R

@@ -0,0 +1,106 @@
+
+get_dummy_data <- function(type) {
+  if (type %in% c("text", "select_one", "select_multiple")) return("dummy")
+  if (type %in% c("radio", "checkbox")) return("dummy")
+  if (type %in% c("date")) return(as.Date("1990-01-01"))
+  if (type %in% c("number")) return(as.double(999))
+}
+
+get_empty_data <- function(type) {
+  if (type %in% c("text", "select_one", "select_multiple")) return(as.character(NA))
+  if (type %in% c("radio", "checkbox")) return(as.character(NA))
+  if (type %in% c("date")) return(as.Date(NA))
+  if (type %in% c("number")) return(as.character(NA))
+}
+
+get_dummy_df <- function() {
+  purrr::map(
+    .x = inputs_simple_list,
+    .f = get_empty_data
+  ) %>%
+    as_tibble()
+}
+
+
+#' @description Function check if variable contains some sort of empty data
+#' (NULL, NA, "", other 0-length data) and return `TRUE` (`FALSE` if data is
+#' not 'empty').
+#'
+#' Needed for proper data validation.
+check_for_empty_data <- function(value_to_check) {
+  # for any 0-length
+  if (length(value_to_check) == 0) return(TRUE)
+
+  # for NA
+  if (is.logical(value_to_check) && is.na(value_to_check)) return(TRUE)
+
+  # for NULL
+  if (is.null(value_to_check)) return(TRUE)
+
+  # for non-empty Date (RETURN FALSE)
+  if (inherits(value_to_check, "Date") && length(value_to_check) != 0) return(FALSE)
+
+  # for empty strings (stands before checking non-empty data for avoid mistakes)
+  if (value_to_check == "") return(TRUE)
+
+  FALSE
+}
+
+
+#' @description Function update input forms.
+#' @param id - input form id;
+#' @param type - type of form;
+#' @param value - value to update;
+update_forms_with_data <- function(id, type, value) {
+  if (type == "text") {
+    shiny::updateTextAreaInput(inputId = id, value = value)
+  }
+
+  if (type == "number") {
+    shiny::updateTextAreaInput(inputId = id, value = value)
+  }
+
+  # supress warnings when applying NA or NULL to date input form
+  if (type == "date") {
+    suppressWarnings(
+      shiny::updateDateInput(inputId = id, value = value)
+    )
+  }
+
+  # select_one
+  if (type == "select_one") {
+    shiny::updateSelectizeInput(inputId = id, selected = value)
+  }
+
+  # select_multiple
+  # check if value is not NA and split by delimetr
+  if (type == "select_multiple" && !is.na(value)) {
+    vars <- stringr::str_split_1(value, "; ")
+    shiny::updateSelectizeInput(inputId = id, selected = vars)
+  }
+  # in other case fill with `character(0)` to proper reseting form
+  if (type == "select_multiple" && is.na(value)) {
+    shiny::updateSelectizeInput(inputId = id, selected = character(0))
+  }
+
+  # radio buttons
+  if (type == "radio" && !is.na(value)) {
+    shiny::updateRadioButtons(inputId = id, selected = value)
+  }
+  if (type == "radio" && is.na(value)) {
+    shiny::updateRadioButtons(inputId = id, selected = character(0))
+  }
+
+  # checkboxes
+  if (type == "checkbox" && !is.na(value)) {
+    vars <- stringr::str_split_1(value, "; ")
+    shiny::updateCheckboxGroupInput(inputId = id, selected = vars)
+  }
+  if (type == "checkbox" && is.na(value)) {
+    shiny::updateCheckboxGroupInput(inputId = id, selected = character(0))
+  }
+
+  if (type == "inline_table") {
+    message("EMPTY")
+  }
+}