tidyexplain/R/zzzz-package.R

#' @importFrom dplyr left_join right_join full_join inner_join semi_join anti_join
#' @importFrom dplyr mutate select filter arrange bind_rows bind_cols group_by pull slice data_frame row_number
#' @importFrom tidyr gather spread
#' @importFrom ggplot2 ggplot aes element_text theme labs
#' @importFrom gganimate enter_fade exit_fade transition_states
#' @keywords internal
"_PACKAGE"

plot_settings <- new.env(parent = emptyenv())
plot_settings$default <- list(
  transition_length = 2,
  state_length      = 1,
  ease_default      = "sine-in-out",
  ease_other        = NULL,
  enter             = setNames(list(gganimate::enter_fade), "enter_fade()"),
  exit              = setNames(list(gganimate::exit_fade), "exit_fade()"),
  text_family       = "Fira Mono",
  title_family      = "Fira Mono",
  text_size         = 5,
  title_size        = 17,
  color_header      = "#737373",
  color_other       = "#d0d0d0",
  color_missing     = "#ffffff",
  color_fun         = scales::brewer_pal(type = "qual", "Set1"),
  text_color        = NA,
  cell_width        = 1,
  cell_height       = 1
)