Compare commits

..

No commits in common. "f932f8279e3727714374ee29c27feca0ada83b60" and "f8b21cdf7284ab080455d55aceb34b4a924ca20e" have entirely different histories.

8 changed files with 22 additions and 22 deletions

View File

@ -33,8 +33,8 @@ name: R-code-check-PR
jobs: jobs:
R-code-check-PR: R-code-check-PR:
# do not run if we are the authors - the other checks will already run # do not run if we are the authors - the other checks will already run
if: ${{ github.event.comment.author_association }} != 'CONTRIBUTOR' && ${{ github.event.comment.author_association }} != 'MEMBER' && ${{ github.event.comment.author_association }} != 'OWNER' && ${{ github.context.payload.comment.author_association }} != 'CONTRIBUTOR' && ${{ github.context.payload.comment.author_association }} != 'MEMBER' && ${{ github.context.payload.comment.author_association }} != 'OWNER' if: ${{ github.event.comment.author_association }} != 'MEMBER' && ${{ github.event.comment.author_association }} != 'OWNER'
runs-on: ${{ matrix.config.os }} runs-on: ${{ matrix.config.os }}
continue-on-error: ${{ matrix.config.allowfail }} continue-on-error: ${{ matrix.config.allowfail }}
@ -55,7 +55,7 @@ jobs:
env: env:
GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }} GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
R_KEEP_PKG_SOURCE: yes R_KEEP_PKG_SOURCE: yes
steps: steps:
- uses: actions/checkout@v3 - uses: actions/checkout@v3

View File

@ -151,9 +151,19 @@ jobs:
find . -name 'tinytest.Rout*' -exec cat '{}' \; || true find . -name 'tinytest.Rout*' -exec cat '{}' \; || true
shell: bash shell: bash
- name: Show dir
continue-on-error: true
if: always()
run: |
echo ${GITHUB_WORKSPACE}
echo "---"
ls ${GITHUB_WORKSPACE}
echo "---"
ls ${GITHUB_WORKSPACE}.Rcheck
- name: Upload artifacts - name: Upload artifacts
if: always() if: always()
uses: actions/upload-artifact@v2 uses: actions/upload-artifact@v2
with: with:
name: artifacts-${{ matrix.config.os }}-r${{ matrix.config.r }} name: artifacts-${{ matrix.config.os }}-r${{ matrix.config.r }}
path: ${GITHUB_WORKSPACE}.Rcheck path: /home/runner/work/AMR/AMR.Rcheck

View File

@ -1,5 +1,5 @@
Package: AMR Package: AMR
Version: 1.8.1.9066 Version: 1.8.1.9064
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)

View File

@ -1,4 +1,4 @@
# AMR 1.8.1.9066 # AMR 1.8.1.9064
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
R/mo.R
View File

@ -852,7 +852,7 @@ trimws2 <- function(x) {
} }
parse_and_convert <- function(x) { parse_and_convert <- function(x) {
if (tryCatch(is.character(x) && all(Encoding(x) == "unknown", na.rm = TRUE), error = function(e) FALSE)) { if (tryCatch(is.character(x) && Encoding(x) == "unknown", error = function(e) FALSE)) {
return(x) return(x)
} }
tryCatch( tryCatch(

View File

@ -25,6 +25,7 @@
# set up package environment, used by numerous AMR functions # set up package environment, used by numerous AMR functions
pkg_env <- new.env(hash = FALSE) pkg_env <- new.env(hash = FALSE)
pkg_env$mo_failed <- character(0)
pkg_env$mo_uncertainties <- data.frame( pkg_env$mo_uncertainties <- data.frame(
uncertainty = integer(0), uncertainty = integer(0),
input = character(0), input = character(0),

View File

@ -225,6 +225,7 @@ expect_equal(as.character(as.mo("g aponina")), "B_GMPHS_APNN")
# check old names # check old names
expect_equal(suppressMessages(as.character(as.mo("Escherichia blattae"))), "B_SHMWL_BLTT") expect_equal(suppressMessages(as.character(as.mo("Escherichia blattae"))), "B_SHMWL_BLTT")
print(mo_renamed())
expect_equal(suppressMessages(as.character(as.mo(c("E. coli", "Chlamydo psittaci")))), c("B_ESCHR_COLI", "B_CHLMY_PSTT")) expect_equal(suppressMessages(as.character(as.mo(c("E. coli", "Chlamydo psittaci")))), c("B_ESCHR_COLI", "B_CHLMY_PSTT"))
expect_equal(suppressMessages(mo_name("eubcom")), "Clostridium combesii") expect_equal(suppressMessages(mo_name("eubcom")), "Clostridium combesii")
@ -307,6 +308,8 @@ 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

View File

@ -38,25 +38,11 @@ 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") {
strrep <- AMR:::strrep
trimws <- AMR:::trimws trimws <- AMR:::trimws
} strrep <- AMR:::strrep
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",