R/utils.R

In Appsilon/semantic.dashboard: Dashboard with Fomantic UI Support for Shiny

# Verify that given variable is in the list of allowed values.
verify_value_allowed <- function(variable, values) {
  var <- get(variable, envir = parent.frame())
  if (!(var %in% values)) {
    warning(paste(paste0("'", variable, "'"),
                  "argument should be one of:",
                  paste0("'", values, "'", collapse = ", ")))
  }
}

# Changes logical inverted value to CSS class string.
get_inverted_class <- function(inverted) {
  ifelse(inverted, "inverted", "")
}

# Interlace elements with dividers between each pair of elements.
interlace_dividers <- function(elements) {
  dividers <- lapply(seq_along(elements), function(i) shiny::tags$div(class = "divider"))
  utils::head(c(rbind(elements, dividers)), -1) # Skips last divider with head.
}

# Random ID generator
random_id_generator <- function(values = 0:9, id_length = 30) {
  paste0(sample(values, id_length, TRUE), collapse = "")
}

# Check that an object is a ShinySession object, and give an informative error.
# The default label is the caller function's name.
validate_session_object <- function(session, label = as.character(sys.call(sys.parent())[[1]])) {
  if (missing(session) ||
      !inherits(session, c("ShinySession", "MockShinySession", "session_proxy"))) {
    stop(call. = FALSE,
         sprintf(
           "`session` must be a 'ShinySession' object. Did you forget to pass `session` to `%s()`?",
           label
         )
    )
  }
}