diff --git a/DESCRIPTION b/DESCRIPTION index ccabc99f4..8f3a8e5a0 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,5 +1,5 @@ Package: AMR -Version: 2.1.1.9223 +Version: 2.1.1.9224 Date: 2025-03-20 Title: Antimicrobial Resistance Data Analysis Description: Functions to simplify and standardise antimicrobial resistance (AMR) diff --git a/NEWS.md b/NEWS.md index 57b81cbf9..04767a68a 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# AMR 2.1.1.9223 +# AMR 2.1.1.9224 *(this beta version will eventually become v3.0. We're happy to reach a new major milestone soon, which will be all about the new One Health support! Install this beta using [the instructions here](https://msberends.github.io/AMR/#latest-development-version).)* diff --git a/data-raw/gpt_training_text_v2.1.1.9223.txt b/data-raw/gpt_training_text_v2.1.1.9224.txt similarity index 99% rename from data-raw/gpt_training_text_v2.1.1.9223.txt rename to data-raw/gpt_training_text_v2.1.1.9224.txt index 7ce0457e6..a7db56f84 100644 --- a/data-raw/gpt_training_text_v2.1.1.9223.txt +++ b/data-raw/gpt_training_text_v2.1.1.9224.txt @@ -1,6 +1,6 @@ This knowledge base contains all context you must know about the AMR package for R. You are a GPT trained to be an assistant for the AMR package in R. You are an incredible R specialist, especially trained in this package and in the tidyverse. -First and foremost, you are trained on version 2.1.1.9223. Remember this whenever someone asks which AMR package version you’re at. +First and foremost, you are trained on version 2.1.1.9224. Remember this whenever someone asks which AMR package version you’re at. Below are the contents of the NAMESPACE file, the index.md file, and all the man/*.Rd files (documentation) in the package. Every file content is split using 100 hypens. ---------------------------------------------------------------------------------------------------- diff --git a/man/figures/mo_matching_score.png b/man/figures/mo_matching_score.png deleted file mode 100644 index cd9b35015..000000000 Binary files a/man/figures/mo_matching_score.png and /dev/null differ diff --git a/tests/testthat/test-_deprecated.R b/tests/testthat/test-_deprecated.R index c06a2fd5e..feec4ed5f 100644 --- a/tests/testthat/test-_deprecated.R +++ b/tests/testthat/test-_deprecated.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-_deprecated.R", { + skip_on_cran() + expect_warning(example_isolates[, ab_class("mycobact")]) expect_warning(example_isolates[, ab_selector(name %like% "trim")]) }) diff --git a/tests/testthat/test-_misc.R b/tests/testthat/test-_misc.R index fb8464ddd..46d92b4b1 100755 --- a/tests/testthat/test-_misc.R +++ b/tests/testthat/test-_misc.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-misc.R", { + skip_on_cran() + expect_equal(AMR:::percentage(0.25), "25%") expect_equal(AMR:::percentage(0.5), "50%") expect_equal(AMR:::percentage(0.500, digits = 1), "50.0%") diff --git a/tests/testthat/test-ab.R b/tests/testthat/test-ab.R index ed949c4a0..84b39e8d8 100755 --- a/tests/testthat/test-ab.R +++ b/tests/testthat/test-ab.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-ab.R", { + skip_on_cran() + ab_reset_session() expect_equal( diff --git a/tests/testthat/test-ab_from_text.R b/tests/testthat/test-ab_from_text.R index 2151b8fb7..cbb5a4fba 100644 --- a/tests/testthat/test-ab_from_text.R +++ b/tests/testthat/test-ab_from_text.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-ab_from_text.R", { + skip_on_cran() + ab_reset_session() expect_identical( diff --git a/tests/testthat/test-ab_property.R b/tests/testthat/test-ab_property.R index 55d88e10b..78430fabd 100644 --- a/tests/testthat/test-ab_property.R +++ b/tests/testthat/test-ab_property.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-ab_property.R", { + skip_on_cran() + ab_reset_session() expect_identical(ab_name("AMX", language = NULL), "Amoxicillin") diff --git a/tests/testthat/test-age.R b/tests/testthat/test-age.R index 86c979d9b..8e20ca932 100644 --- a/tests/testthat/test-age.R +++ b/tests/testthat/test-age.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-age.R", { + skip_on_cran() + expect_equal( age( x = c("1980-01-01", "1985-01-01", "1990-01-01"), diff --git a/tests/testthat/test-amr_selectors.R b/tests/testthat/test-amr_selectors.R index f71e74a1e..8b834ae79 100644 --- a/tests/testthat/test-amr_selectors.R +++ b/tests/testthat/test-amr_selectors.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-amr selectors.R", { + skip_on_cran() + # antibiotic class selectors expect_equal(ncol(example_isolates[, aminoglycosides(), drop = FALSE]), 4, tolerance = 0.5) expect_equal(ncol(example_isolates[, aminopenicillins(), drop = FALSE]), 2, tolerance = 0.5) diff --git a/tests/testthat/test-antibiogram.R b/tests/testthat/test-antibiogram.R index 9ffc146b0..4f622dd0d 100644 --- a/tests/testthat/test-antibiogram.R +++ b/tests/testthat/test-antibiogram.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-antibiogram.R", { + skip_on_cran() + # Traditional antibiogram ---------------------------------------------- ab1 <- antibiogram(example_isolates, diff --git a/tests/testthat/test-atc_online.R b/tests/testthat/test-atc_online.R index b4591e920..24ece9e51 100644 --- a/tests/testthat/test-atc_online.R +++ b/tests/testthat/test-atc_online.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-atc_online.R", { + skip_on_cran() + if (AMR:::pkg_is_available("curl") && AMR:::pkg_is_available("rvest") && AMR:::pkg_is_available("xml2") && diff --git a/tests/testthat/test-av.R b/tests/testthat/test-av.R index fb9ffd10f..4555f3571 100755 --- a/tests/testthat/test-av.R +++ b/tests/testthat/test-av.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-av.R", { + skip_on_cran() + expect_equal( as.character(as.av(c( "J05AB01", diff --git a/tests/testthat/test-av_from_text.R b/tests/testthat/test-av_from_text.R index 6393d5b0f..dd753e461 100644 --- a/tests/testthat/test-av_from_text.R +++ b/tests/testthat/test-av_from_text.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-av_from_text.R", { + skip_on_cran() + expect_identical( av_from_text("28/03/2020 regular aciclovir 500mg po tds")[[1]], as.av("Aciclovir") diff --git a/tests/testthat/test-av_property.R b/tests/testthat/test-av_property.R index 7a3f4380b..b7bce56f8 100644 --- a/tests/testthat/test-av_property.R +++ b/tests/testthat/test-av_property.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-ab_property.R", { + skip_on_cran() + expect_identical(av_name("ACI", language = NULL), "Aciclovir") expect_identical(av_atc("ACI"), "J05AB01") expect_identical(av_cid("ACI"), as.integer(135398513)) diff --git a/tests/testthat/test-availability.R b/tests/testthat/test-availability.R index e3545e226..c6d11ebfa 100644 --- a/tests/testthat/test-availability.R +++ b/tests/testthat/test-availability.R @@ -28,5 +28,7 @@ # ==================================================================== # test_that("test-availibility.R", { + skip_on_cran() + expect_inherits(availability(example_isolates), "data.frame") }) diff --git a/tests/testthat/test-bug_drug_combinations.R b/tests/testthat/test-bug_drug_combinations.R index 032e82b79..b35a2b90b 100644 --- a/tests/testthat/test-bug_drug_combinations.R +++ b/tests/testthat/test-bug_drug_combinations.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-bug/drug.R", { + skip_on_cran() + b <- suppressWarnings(bug_drug_combinations(example_isolates)) expect_inherits(b, "bug_drug_combinations") expect_output(suppressMessages(print(b))) diff --git a/tests/testthat/test-count.R b/tests/testthat/test-count.R index fffb88122..d651601e3 100644 --- a/tests/testthat/test-count.R +++ b/tests/testthat/test-count.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-count.R", { + skip_on_cran() + expect_equal(count_resistant(example_isolates$AMX), count_R(example_isolates$AMX)) expect_equal(count_susceptible(example_isolates$AMX), count_SI(example_isolates$AMX)) expect_equal(count_all(example_isolates$AMX), n_sir(example_isolates$AMX)) diff --git a/tests/testthat/test-custom_antimicrobials.R b/tests/testthat/test-custom_antimicrobials.R index b092b9b59..2607055a8 100644 --- a/tests/testthat/test-custom_antimicrobials.R +++ b/tests/testthat/test-custom_antimicrobials.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-custom ab.R", { + skip_on_cran() + ab_reset_session() expect_message(as.ab("testab", info = TRUE)) diff --git a/tests/testthat/test-custom_microorganisms.R b/tests/testthat/test-custom_microorganisms.R index e504cb837..65036cbe1 100644 --- a/tests/testthat/test-custom_microorganisms.R +++ b/tests/testthat/test-custom_microorganisms.R @@ -29,6 +29,8 @@ test_that("test-custom mo.R", { + skip_on_cran() + expect_identical( as.mo("Enterobacter asburiae/cloacae"), as.mo("Enterobacter asburiae") diff --git a/tests/testthat/test-data.R b/tests/testthat/test-data.R index 1277d4bb1..f4054faff 100644 --- a/tests/testthat/test-data.R +++ b/tests/testthat/test-data.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-data.R", { + skip_on_cran() + # IDs should always be unique expect_identical(nrow(microorganisms), length(unique(microorganisms$mo))) expect_identical(class(microorganisms$mo), c("mo", "character")) diff --git a/tests/testthat/test-disk.R b/tests/testthat/test-disk.R index ee5b360e3..bf50ab93f 100755 --- a/tests/testthat/test-disk.R +++ b/tests/testthat/test-disk.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-disk.R", { + skip_on_cran() + expect_true(as.disk(8) == as.disk("8")) expect_true(is.disk(as.disk(8))) diff --git a/tests/testthat/test-eucast_rules.R b/tests/testthat/test-eucast_rules.R index f5b1972e9..3cfcd8b1b 100755 --- a/tests/testthat/test-eucast_rules.R +++ b/tests/testthat/test-eucast_rules.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-eucast_rules.R", { + skip_on_cran() + # thoroughly check input table expect_equal( colnames(AMR:::EUCAST_RULES_DF), diff --git a/tests/testthat/test-first_isolate.R b/tests/testthat/test-first_isolate.R index 769873e03..7fad41447 100755 --- a/tests/testthat/test-first_isolate.R +++ b/tests/testthat/test-first_isolate.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-first_isolate.R", { + skip_on_cran() + # all four methods expect_equal( sum(first_isolate(x = example_isolates, method = "isolate-based", info = TRUE), na.rm = TRUE), diff --git a/tests/testthat/test-g.test.R b/tests/testthat/test-g.test.R index ed8dae731..ea17ec8b5 100644 --- a/tests/testthat/test-g.test.R +++ b/tests/testthat/test-g.test.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-g.test.R", { + skip_on_cran() + # GOODNESS-OF-FIT # example 1: clearfield rice vs. red rice diff --git a/tests/testthat/test-get_episode.R b/tests/testthat/test-get_episode.R index 1eb7c8e65..6c3d9d400 100644 --- a/tests/testthat/test-get_episode.R +++ b/tests/testthat/test-get_episode.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-get_episode.R", { + skip_on_cran() + x <- data.frame(dates = as.Date(c("2021-01-01", "2021-01-02", "2021-01-05", "2021-01-08", "2021-02-21", "2021-02-22", "2021-02-23", "2021-02-24", "2021-03-01", "2021-03-01"))) x$absolute <- get_episode(x$dates, episode_days = 7) x$relative <- get_episode(x$dates, case_free_days = 7) diff --git a/tests/testthat/test-ggplot_sir.R b/tests/testthat/test-ggplot_sir.R index a9788ea90..0cf2390a3 100644 --- a/tests/testthat/test-ggplot_sir.R +++ b/tests/testthat/test-ggplot_sir.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-ggplot_sir.R", { + skip_on_cran() + if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0", also_load = TRUE) && AMR:::pkg_is_available("ggplot2", also_load = TRUE)) { pdf(NULL) # prevent Rplots.pdf being created diff --git a/tests/testthat/test-guess_ab_col.R b/tests/testthat/test-guess_ab_col.R index c288570a9..b64bfa2c1 100644 --- a/tests/testthat/test-guess_ab_col.R +++ b/tests/testthat/test-guess_ab_col.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-guess_ab_col.R", { + skip_on_cran() + expect_equal( guess_ab_col(example_isolates, "amox"), "AMX" diff --git a/tests/testthat/test-italicise_taxonomy.R b/tests/testthat/test-italicise_taxonomy.R index f5af8249d..06d43f51b 100644 --- a/tests/testthat/test-italicise_taxonomy.R +++ b/tests/testthat/test-italicise_taxonomy.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-italicise_taxonomy.R", { + skip_on_cran() + expect_identical( italicise_taxonomy("test for E. coli"), "test for *E. coli*" diff --git a/tests/testthat/test-join_microorganisms.R b/tests/testthat/test-join_microorganisms.R index 601ac68af..5f38602a7 100755 --- a/tests/testthat/test-join_microorganisms.R +++ b/tests/testthat/test-join_microorganisms.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-join_microorganisms.R", { + skip_on_cran() + unjoined <- example_isolates inner <- inner_join_microorganisms(example_isolates) left <- left_join_microorganisms(example_isolates) diff --git a/tests/testthat/test-key_antimicrobials.R b/tests/testthat/test-key_antimicrobials.R index 2ad85231c..4359099f4 100644 --- a/tests/testthat/test-key_antimicrobials.R +++ b/tests/testthat/test-key_antimicrobials.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-key_antimicrobials.R", { + skip_on_cran() + expect_equal(length(key_antimicrobials(example_isolates, antifungal = NULL)), nrow(example_isolates)) expect_false(all(is.na(key_antimicrobials(example_isolates, antifungal = NULL)))) expect_true(antimicrobials_equal("SSS", "SSS", type = "points")) diff --git a/tests/testthat/test-kurtosis.R b/tests/testthat/test-kurtosis.R index d6cde993c..ff6b450e0 100644 --- a/tests/testthat/test-kurtosis.R +++ b/tests/testthat/test-kurtosis.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-kurtosis.R", { + skip_on_cran() + expect_equal(kurtosis(example_isolates$age), 5.227999, tolerance = 0.00001 diff --git a/tests/testthat/test-like.R b/tests/testthat/test-like.R index 5475beed9..2a35245cb 100644 --- a/tests/testthat/test-like.R +++ b/tests/testthat/test-like.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-like.R", { + skip_on_cran() + expect_true(sum("test" %like% c("^t", "^s")) == 1) expect_true("test" %like% "test") diff --git a/tests/testthat/test-mdro.R b/tests/testthat/test-mdro.R index 118b32f0c..6543a59d3 100755 --- a/tests/testthat/test-mdro.R +++ b/tests/testthat/test-mdro.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-mdro.R", { + skip_on_cran() + expect_error(mdro(example_isolates, guideline = c("BRMO", "MRGN"), info = TRUE)) expect_error(mdro(example_isolates, col_mo = "invalid", info = TRUE)) diff --git a/tests/testthat/test-mean_amr_distance.R b/tests/testthat/test-mean_amr_distance.R index 4f2d72567..df1852715 100644 --- a/tests/testthat/test-mean_amr_distance.R +++ b/tests/testthat/test-mean_amr_distance.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-mean_amr_distance.R", { + skip_on_cran() + vctr_disk <- as.disk(c(20:25)) vctr_mic <- as.mic(2^c(0:5)) vctr_sir <- as.sir(c("S", "S", "I", "I", "R", "R")) diff --git a/tests/testthat/test-mic.R b/tests/testthat/test-mic.R index 48c79f3b8..536786f27 100755 --- a/tests/testthat/test-mic.R +++ b/tests/testthat/test-mic.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-mic.R", { + skip_on_cran() + # used in multiple functions, also in plotting expect_true(all(as.mic(AMR:::COMMON_MIC_VALUES) %in% AMR:::VALID_MIC_LEVELS)) expect_true(all(paste0("<=", as.mic(AMR:::COMMON_MIC_VALUES)) %in% AMR:::VALID_MIC_LEVELS)) diff --git a/tests/testthat/test-mo.R b/tests/testthat/test-mo.R index b5ff2b91a..de97df2ec 100644 --- a/tests/testthat/test-mo.R +++ b/tests/testthat/test-mo.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-mo.R", { + skip_on_cran() + MOs <- subset(microorganisms, !is.na(mo) & nchar(mo) > 3) expect_identical(as.character(MOs$mo), as.character(as.mo(MOs$mo, keep_synonyms = TRUE))) diff --git a/tests/testthat/test-mo_property.R b/tests/testthat/test-mo_property.R index 4e3461e47..b4d701af4 100644 --- a/tests/testthat/test-mo_property.R +++ b/tests/testthat/test-mo_property.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-mo_property.R", { + skip_on_cran() + expect_equal(mo_kingdom("Escherichia coli"), "Bacteria") expect_equal(mo_kingdom("Escherichia coli"), mo_domain("Escherichia coli")) expect_equal(mo_phylum("Escherichia coli"), "Pseudomonadota") diff --git a/tests/testthat/test-pca.R b/tests/testthat/test-pca.R index 558061530..bc9eb1c83 100644 --- a/tests/testthat/test-pca.R +++ b/tests/testthat/test-pca.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-pca.R", { + skip_on_cran() + resistance_data <- structure( list( order = c("Bacillales", "Enterobacterales", "Enterobacterales"), diff --git a/tests/testthat/test-plotting.R b/tests/testthat/test-plotting.R index 6ab51d9f8..6ba1d625b 100644 --- a/tests/testthat/test-plotting.R +++ b/tests/testthat/test-plotting.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-plotting.R", { + skip_on_cran() + if (AMR:::pkg_is_available("ggplot2", also_load = TRUE)) { pdf(NULL) # prevent Rplots.pdf being created diff --git a/tests/testthat/test-proportion.R b/tests/testthat/test-proportion.R index e2c30e738..dd363c741 100755 --- a/tests/testthat/test-proportion.R +++ b/tests/testthat/test-proportion.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-proportion.R", { + skip_on_cran() + expect_equal(proportion_R(example_isolates$AMX), resistance(example_isolates$AMX)) expect_equal(proportion_SI(example_isolates$AMX), susceptibility(example_isolates$AMX)) # AMX resistance in `example_isolates` diff --git a/tests/testthat/test-random.R b/tests/testthat/test-random.R index 7c83bed70..d464cc3c7 100644 --- a/tests/testthat/test-random.R +++ b/tests/testthat/test-random.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-random.R", { + skip_on_cran() + expect_inherits(random_mic(100), "mic") expect_inherits(random_mic(100, mo = "Klebsiella pneumoniae"), "mic") expect_inherits(random_mic(100, mo = "Klebsiella pneumoniae", ab = "meropenem"), "mic") diff --git a/tests/testthat/test-resistance_predict.R b/tests/testthat/test-resistance_predict.R index a3d74cc7e..e3136b406 100644 --- a/tests/testthat/test-resistance_predict.R +++ b/tests/testthat/test-resistance_predict.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-resistance_predict.R", { + skip_on_cran() + if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0", also_load = TRUE)) { expect_output(AMX_R <- example_isolates %>% filter(mo == "B_ESCHR_COLI") %>% diff --git a/tests/testthat/test-sir.R b/tests/testthat/test-sir.R index b94d1262a..a30dea303 100644 --- a/tests/testthat/test-sir.R +++ b/tests/testthat/test-sir.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-sir.R", { + skip_on_cran() + # Existing SIR ------------------------------------------------------------ # we must only have EUCAST and CLSI, because otherwise the rules in as.sir() will fail diff --git a/tests/testthat/test-skewness.R b/tests/testthat/test-skewness.R index ad64ea6e8..b141bfdc9 100644 --- a/tests/testthat/test-skewness.R +++ b/tests/testthat/test-skewness.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-skewness.R", { + skip_on_cran() + expect_equal(skewness(example_isolates$age), -1.212888, tolerance = 0.00001 diff --git a/tests/testthat/test-top_n_microorganisms.R b/tests/testthat/test-top_n_microorganisms.R index 91b484d11..6000406ce 100644 --- a/tests/testthat/test-top_n_microorganisms.R +++ b/tests/testthat/test-top_n_microorganisms.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-top_n_microorganisms.R", { + skip_on_cran() + out1 <- top_n_microorganisms(example_isolates, n = 3) out2 <- top_n_microorganisms(example_isolates, n = 5, property = "genus") out3 <- top_n_microorganisms(example_isolates, n = 5, property = "genus", n_for_each = 3) diff --git a/tests/testthat/test-translate.R b/tests/testthat/test-translate.R index 022bcc975..813d482a6 100644 --- a/tests/testthat/test-translate.R +++ b/tests/testthat/test-translate.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-translate.R", { + skip_on_cran() + expect_identical(mo_genus("B_GRAMP", language = "pt"), "(gênero desconhecido)") expect_identical(mo_fullname("CoNS", "cs"), "Koaguláza-negativní stafylokok (KNS)") diff --git a/tests/testthat/test-vctrs.R b/tests/testthat/test-vctrs.R index 4960f5918..0f982a4ba 100755 --- a/tests/testthat/test-vctrs.R +++ b/tests/testthat/test-vctrs.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-vctrs.R", { + skip_on_cran() + # extra tests for {vctrs} pkg support if (AMR:::pkg_is_available("tibble")) { test <- tibble::tibble( diff --git a/tests/testthat/test-zzz.R b/tests/testthat/test-zzz.R index 3036c6162..deaef7167 100644 --- a/tests/testthat/test-zzz.R +++ b/tests/testthat/test-zzz.R @@ -28,6 +28,8 @@ # ==================================================================== # test_that("test-zzz.R", { + skip_on_cran() + # Check if these functions still exist in their package (all are in Suggests field) # Since GitHub Actions runs every night, we will get emailed when a dependency fails based on this unit test diff --git a/tests/tinytest.R.old b/tests/tinytest.R.old index 97953c53e..dd815bc2b 100644 --- a/tests/tinytest.R.old +++ b/tests/tinytest.R.old @@ -43,6 +43,7 @@ if (identical(Sys.getenv("R_RUN_TINYTEST"), "true")) { code } expect_output <- tinytest::expect_stdout + skip_on_cran <- function() invisible(NULL) # set language set_AMR_locale("English")