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

patient ID in first isolate

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-03-11 17:13:19 +01:00
parent 7ad8635994
commit 9179e98e12
4 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/first_isolate.R
View File

@ -350,7 +350,7 @@ first_isolate <- function(x = NULL,
x$newvar_mo <- as.mo(x[, col_mo, drop = TRUE])
x$newvar_genus_species <- paste(mo_genus(x$newvar_mo), mo_species(x$newvar_mo))
x$newvar_date <- x[, col_date, drop = TRUE]
x$newvar_patient_id <- x[, col_patient_id, drop = TRUE]
x$newvar_patient_id <- as.character(x[, col_patient_id, drop = TRUE])
if (is.null(col_testcode)) {
testcodes_exclude <- NULL
@ -378,7 +378,7 @@ first_isolate <- function(x = NULL,
}
}
if (!is.null(col_keyantimicrobials)) {
x$newvar_key_ab <- x[, col_keyantimicrobials, drop = TRUE]
x$newvar_key_ab <- as.character(x[, col_keyantimicrobials, drop = TRUE])
}
if (is.null(testcodes_exclude)) {