P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-11-05 11:55:35 +01:00
Code Releases Activity

fix scale functions

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-12-03 16:51:54 +01:00
parent c7461766ce
commit 7059568581
6 changed files with 41 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
inst/tinytest/test-zzz.R
View File

@@ -86,10 +86,14 @@ call_functions <- c(
"ggplot" = "ggplot2",
"labs" = "ggplot2",
"layer" = "ggplot2",
"position_fill" = "ggplot2",
"position_dodge2" = "ggplot2",
"position_fill" = "ggplot2",
"scale_colour_discrete" = "ggplot2",
"scale_fill_discrete" = "ggplot2",
"scale_fill_manual" = "ggplot2",
"scale_x_discrete" = "ggplot2",
"scale_y_continuous" = "ggplot2",
"scale_y_discrete" = "ggplot2",
"theme" = "ggplot2",
"theme_minimal" = "ggplot2",
"unit" = "ggplot2",
@@ -127,7 +131,7 @@ for (i in seq_len(length(import_functions))) {
expect_true(!is.null(AMR:::import_fn(name = fn, pkg = pkg, error_on_fail = FALSE)),
info = paste0("does not exist (anymore): function `", pkg, "::", fn, "()`")
)
} else {
} else if (pkg != "rstudioapi") {
warning("Package '", pkg, "' does not exist anymore")
}
}
@@ -140,3 +144,12 @@ if (AMR:::pkg_is_available("cli")) {
if (AMR:::pkg_is_available("cli")) {
expect_true(!is.null(cli::symbol$ellipsis))
}
if (AMR:::pkg_is_available("ggplot2")) {
# the scale_*_mic() functions rely on these
expect_true(is.function(ggplot2::scale_x_discrete()$transform))
expect_true(is.function(ggplot2::scale_y_discrete()$transform))
expect_true(is.function(ggplot2::scale_colour_discrete()$transform))
expect_true(is.function(ggplot2::scale_fill_discrete()$transform))
}