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

WHONET/EARS-Net support

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-01-29 00:06:50 +01:00
parent f6336fdd89
commit 6aae206320
83 changed files with 1428 additions and 633 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/first_isolate.R
View File

@ -220,6 +220,14 @@ first_isolate <- function(tbl,
col_keyantibiotics <- NULL
}
# -- specimen
if (is.null(col_specimen)) {
col_specimen <- search_type_in_df(tbl = tbl, type = "specimen")
}
if (isFALSE(col_specimen)) {
col_specimen <- NULL
}
# check if columns exist
check_columns_existance <- function(column, tblname = tbl) {
if (NROW(tblname) <= 1 | NCOL(tblname) <= 1) {