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

(v2.1.1.9183) unit test for older R versions

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-03-03 14:54:42 +01:00
parent 9a9468fa84
commit e28dd86c43
9 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tests/testthat/test-_misc.R
View File

@ -67,10 +67,15 @@ check_df <- function(check_element, return_val = 0) {
}
df <- example_isolates[, check_df("x")]
expect_true(is_right, info = "the environmental data cannot be found for base/x")
expect_true(is_right, info = "the environmental data cannot be found for base/x (1)")
df <- example_isolates[c(1:3), check_df("x")]
expect_true(is_right, info = "the environmental data cannot be found for base/x")
if (getRversion() < "4.0.0") {
df <- example_isolates[c(1:3), check_df("xx")]
expect_true(is_right, info = "the environmental data cannot be found for base/xx")
} else {
df <- example_isolates[c(1:3), check_df("x")]
expect_true(is_right, info = "the environmental data cannot be found for base/x (2)")
}
if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0", also_load = TRUE)) {
df <- example_isolates %>% select(mo, check_df("data123"))