P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-01-15 23:21:37 +01:00
Code Releases Activity

fixes

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2022-09-23 16:07:45 +02:00
parent 7c08418c0e
commit f932f8279e
4 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@ -1,5 +1,5 @@
Package: AMR Package: AMR
Version: 1.8.1.9065 Version: 1.8.1.9066
Date: 2022-09-23 Date: 2022-09-23
Title: Antimicrobial Resistance Data Analysis Title: Antimicrobial Resistance Data Analysis
Description: Functions to simplify and standardise antimicrobial resistance (AMR) Description: Functions to simplify and standardise antimicrobial resistance (AMR)

2
NEWS.md
View File

@ -1,4 +1,4 @@
# AMR 1.8.1.9065 # AMR 1.8.1.9066
This version will eventually become v2.0! We're happy to reach a new major milestone soon! This version will eventually become v2.0! We're happy to reach a new major milestone soon!

2
inst/tinytest/test-mo.R
View File

@ -307,8 +307,6 @@ expect_equal(
rep("UNKNOWN", 3) rep("UNKNOWN", 3)
) )
expect_null(mo_failures())
expect_error(translate_allow_uncertain(5)) expect_error(translate_allow_uncertain(5))
# debug mode # debug mode

16
tests/tinytest.R
View File

@ -38,11 +38,25 @@ if (identical(Sys.getenv("R_RUN_TINYTEST"), "true")) {
set_AMR_locale("English") set_AMR_locale("English")
# get dir.exists(), trimws() and strrep() if on old R # get dir.exists(), trimws() and strrep() if on old R
if (getRversion() < "3.2.0") { if (getRversion() < "3.2.0") {
anyNA <- AMR:::anyNA
dir.exists <- AMR:::dir.exists dir.exists <- AMR:::dir.exists
file.size <- AMR:::file.size
file.mtime <- AMR:::file.mtime
isNamespaceLoaded <- AMR:::isNamespaceLoaded
lengths <- AMR:::lengths
} }
if (getRversion() < "3.3.0") { if (getRversion() < "3.3.0") {
trimws <- AMR:::trimws
strrep <- AMR:::strrep strrep <- AMR:::strrep
trimws <- AMR:::trimws
}
if (getRversion() < "3.4.2") {
isFALSE <- AMR:::isFALSE
}
if (getRversion() < "3.6.0") {
str2lang <- AMR:::str2lang
}
if (getRversion() < "4.0.0") {
deparse1 <- AMR:::deparse1
} }
# start the unit tests # start the unit tests
out <- test_package("AMR", out <- test_package("AMR",