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

data.table

This commit is contained in:
dr. M.S. (Matthijs) Berends 2022-10-03 21:19:00 +02:00
parent 9cbc1d4f16
commit a62ff0a1b9
4 changed files with 6 additions and 6 deletions

View File

@ -1,5 +1,5 @@
Package: AMR Package: AMR
Version: 1.8.2.9024 Version: 1.8.2.9025
Date: 2022-10-03 Date: 2022-10-03
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)

View File

@ -1,4 +1,4 @@
# AMR 1.8.2.9024 # AMR 1.8.2.9025
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!

View File

@ -32,7 +32,7 @@ install.packages("data-raw/tinytest_1.3.1.tar.gz", dependencies = c("Depends", "
install.packages(getwd(), repos = NULL, type = "source") install.packages(getwd(), repos = NULL, type = "source")
pkg_suggests <- gsub( pkg_suggests <- gsub(
"[^a-zA-Z0-9]+", "", "[^a-zA-Z0-9.]+", "",
unlist(strsplit(unlist(packageDescription("AMR", unlist(strsplit(unlist(packageDescription("AMR",
fields = c("Suggests", "Enhances", "LinkingTo") fields = c("Suggests", "Enhances", "LinkingTo")
)), )),

View File

@ -41,9 +41,9 @@ expect_equal(strrep(c("A", "B"), c(5, 2)), c("AAAAA", "BB"))
expect_equal(trimws(" test "), "test") expect_equal(trimws(" test "), "test")
expect_equal(trimws(" test ", "l"), "test ") expect_equal(trimws(" test ", "l"), "test ")
expect_equal(trimws(" test ", "r"), " test") expect_equal(trimws(" test ", "r"), " test")
expect_equal(trimws2(" test "), "test") expect_equal(AMR:::trimws2(" test "), "test")
expect_equal(trimws2(" test ", "l"), "test ") expect_equal(AMR:::trimws2(" test ", "l"), "test ")
expect_equal(trimws2(" test ", "r"), " test") expect_equal(AMR:::trimws2(" test ", "r"), " test")
expect_warning(AMR:::generate_warning_abs_missing(c("AMP", "AMX"))) expect_warning(AMR:::generate_warning_abs_missing(c("AMP", "AMX")))
expect_warning(AMR:::generate_warning_abs_missing(c("AMP", "AMX"), any = TRUE)) expect_warning(AMR:::generate_warning_abs_missing(c("AMP", "AMX"), any = TRUE))