P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 10:31:53 +02:00
Code Releases Activity

console hyperlink fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-07-14 09:50:13 +02:00
parent 08f7256852
commit fd480d1a9a
7 changed files with 25 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,6 +61,10 @@ call_functions <- c(
"freq.default" = "cleaner",
# cli
"symbol" = "cli",
"ansi_has_hyperlink_support" = "cli",
# rstudioapi (RStudio)
"isAvailable" = "rstudioapi",
"versionInfo" = "rstudioapi",
# readxl
"read_excel" = "readxl",
# ggplot2
@ -120,18 +124,19 @@ for (i in seq_len(length(import_functions))) {
also_load = FALSE,
min_version = if (pkg == "dplyr") "1.0.0" else NULL
)) {
tst <- !is.null(AMR:::import_fn(name = fn, pkg = pkg, error_on_fail = FALSE))
expect_true(tst,
info = ifelse(tst,
"All external function references exist.",
paste0("Function ", pkg, "::", fn, "() does not exist anymore")
)
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 {
warning("Package '", pkg, "' does not exist anymore")
}
}
if (AMR:::pkg_is_available("cli")) {
expect_true(!is.null(cli::symbol$info))
expect_true(!is.null(cli::symbol$bullet))
}
if (AMR:::pkg_is_available("cli")) {
}
if (AMR:::pkg_is_available("cli")) {
expect_true(!is.null(cli::symbol$ellipsis))
}