Nothing
#' @title Split data frame into a list by grouping variable
#'
#' @description
#'
#' This function splits the data frame into a list, with the length of the list
#' equal to the factor levels of the grouping variable.
#'
#' @inheritParams ggbetweenstats
#' @param grouping.var A single grouping variable.
#'
#' @autoglobal
#' @examplesIf identical(Sys.getenv("NOT_CRAN"), "true")
#' ggstatsplot:::.grouped_list(ggplot2::msleep, grouping.var = vore)
#' @keywords internal
.grouped_list <- function(data, grouping.var) {
as_tibble(data) %>%
split(f = new_formula(NULL, enquo(grouping.var)), drop = TRUE) %>%
list(data = ., title = names(.))
}
#' @title Check if palette has enough number of colors
#'
#' @description
#' Informs the user about not using the default color palette
#' when the number of factor levels is greater than 8, the maximum number of
#' colors allowed by `"Dark2"` palette from the `{RColorBrewer}` package.
#'
#' @examples
#' ggstatsplot:::.is_palette_sufficient("RColorBrewer", "Dark2", 6L)
#' ggstatsplot:::.is_palette_sufficient("RColorBrewer", "Dark2", 12L)
#'
#' @autoglobal
#' @keywords internal
.is_palette_sufficient <- function(package, palette, min_length) {
palette_length <- paletteer::palettes_d_names %>%
filter(package == !!package, palette == !!palette) %>%
purrr::pluck("length")
are_enough_colors_available <- palette_length > min_length
if (!are_enough_colors_available) {
rlang::inform(c(
"Number of labels is greater than default palette color count.",
"Select another color `palette` (and/or `package`)."
))
}
are_enough_colors_available
}
#' @noRd
.eval_f <- function(.f, ...) {
tryCatch(
suppressWarnings(suppressMessages(exec(.f, ...))),
error = function(e) NULL
)
}
#' @noRd
.extract_expression <- function(data) purrr::pluck(data, "expression", 1L, .default = NULL)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.