P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-13 05:21:50 +02:00
Code Releases Activity

(v1.2.0.9005) data set fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-06-09 16:31:44 +02:00
parent 8b692ecfcf
commit 352508889c
14 changed files with 373 additions and 364 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
data-raw/loinc.R
View File

@ -46,6 +46,11 @@ for (i in seq_len(nrow(antibiotics))) {
antibiotics$loinc[i] <- list(loinc_ab)
}
}
# sort and fix for empty values
for (i in 1:nrow(antibiotics)) {
loinc <- as.character(sort(unique(tolower(antibiotics[i, "loinc"][[1]]))))
antibiotics[i, "loinc"][[1]] <- ifelse(length(syn[!syn == ""]) == 0, list(""), list(loinc))
}
dim(antibiotics) # for R/data.R
usethis::use_data(antibiotics, overwrite = TRUE)