R/utils_app.R

In Vandebron/ggplot_viz: Grammar of Graphics UI

is_categorical <- function(x){
  is.factor(x) || is.logical(x) || is.character(x)
}

from_vars_to_choice_list <- function(x){
  if (purrr::is_empty(x)) return(list(NA))
  if (length(x) == 1) return(list(x[1]))
  x
}

get_inst_file <- function(local_path, package = "ggViz"){
  path <- system.file(local_path, package = package)
  
  if (nchar(path) == 0) { 
    rlang::abort(
      class = "error_inst_file_not_found",
      message = sprintf(
        "File `%s` not found in global path `%s`",
        local_path,
        system.file(package = package)
      )
    )
  }
  path
}

read_inst_rds <- function(local_path, package = "ggViz"){
  file <- get_inst_file(local_path, package)
  readRDS(file)
}

generate_safe_env <- function(){
  safe_base_functions_names <- c(
    methods::getGroupMembers("Math"),
    methods::getGroupMembers("Arith"),
    methods::getGroupMembers("Compare"),
    methods::getGroupMembers("Logic"),
    methods::getGroupMembers("Summary"),
    "{", "(", "ifelse", "::", "c", "[", "[[", "$"
  )
  safe_base_functions <- 
    purrr::map(safe_base_functions_names, ~ get(., "package:base")) %>% 
    purrr::set_names(safe_base_functions_names) 
  
  pipe_function <- list(`%>%` = "%>%")
  
  ggplot_functions <- as.list(environment(ggplot2::ggplot))
  dplyr_functions <- as.list(environment(dplyr::select))
  tidyr_functions <- as.list(environment(tidyr::pivot_longer))
  
  rlang::new_environment(
    data = c(
      safe_base_functions,
      pipe_function,
      ggplot_functions,
      dplyr_functions,
      tidyr_functions
    ), 
    parent = rlang::empty_env()
  )
}