diff --git a/R/utils.R b/R/utils.R index 6e2fb3172..bca641943 100644 --- a/R/utils.R +++ b/R/utils.R @@ -32,8 +32,8 @@ #' colors allowed by `"Dark2"` palette from the `{RColorBrewer}` package. #' #' @examples -#' .is_palette_sufficient("RColorBrewer", "Dark2", 6L) -#' .is_palette_sufficient("RColorBrewer", "Dark2", 12L) +#' ggstatsplot:::.is_palette_sufficient("RColorBrewer", "Dark2", 6L) +#' ggstatsplot:::.is_palette_sufficient("RColorBrewer", "Dark2", 12L) #' #' @autoglobal #' @keywords internal diff --git a/man/dot-is_palette_sufficient.Rd b/man/dot-is_palette_sufficient.Rd index c8112f0f2..20f2f8fe2 100644 --- a/man/dot-is_palette_sufficient.Rd +++ b/man/dot-is_palette_sufficient.Rd @@ -12,8 +12,8 @@ when the number of factor levels is greater than 8, the maximum number of colors allowed by \code{"Dark2"} palette from the \code{{RColorBrewer}} package. } \examples{ -.is_palette_sufficient("RColorBrewer", "Dark2", 6L) -.is_palette_sufficient("RColorBrewer", "Dark2", 12L) +ggstatsplot:::.is_palette_sufficient("RColorBrewer", "Dark2", 6L) +ggstatsplot:::.is_palette_sufficient("RColorBrewer", "Dark2", 12L) } \keyword{internal} diff --git a/tests/testthat/_snaps/utils.md b/tests/testthat/_snaps/utils.md index 097a153a5..bec5eb611 100644 --- a/tests/testthat/_snaps/utils.md +++ b/tests/testthat/_snaps/utils.md @@ -1,7 +1,7 @@ # .grouped_list works with non-syntactic group names Code - sleep %>% rename(`my non-syntactic name` = group) %>% ggstatsplot:::.grouped_list( + sleep %>% rename(`my non-syntactic name` = group) %>% .grouped_list( grouping.var = `my non-syntactic name`) %>% str() Output List of 2 @@ -19,7 +19,7 @@ # .is_palette_sufficient is working Code - ggstatsplot:::.is_palette_sufficient("RColorBrewer", "Dark2", 20L) + .is_palette_sufficient("RColorBrewer", "Dark2", 20L) Message Number of labels is greater than default palette color count. * Select another color `palette` (and/or `package`). diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R index 359b65278..6bcd30a1b 100644 --- a/tests/testthat/test-utils.R +++ b/tests/testthat/test-utils.R @@ -7,7 +7,7 @@ test_that( expect_snapshot({ sleep %>% rename("my non-syntactic name" = group) %>% - ggstatsplot:::.grouped_list(grouping.var = `my non-syntactic name`) %>% + .grouped_list(grouping.var = `my non-syntactic name`) %>% str() }) } @@ -18,8 +18,8 @@ test_that( test_that( desc = ".is_palette_sufficient is working", code = { - expect_no_condition(ggstatsplot:::.is_palette_sufficient("RColorBrewer", "Dark2", 2L)) - expect_snapshot(ggstatsplot:::.is_palette_sufficient("RColorBrewer", "Dark2", 20L)) + expect_no_condition(.is_palette_sufficient("RColorBrewer", "Dark2", 2L)) + expect_snapshot(.is_palette_sufficient("RColorBrewer", "Dark2", 20L)) } )