P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-12 11:01:52 +02:00
Code Releases Activity

prepare for CRAN

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-10-20 14:51:48 +02:00
parent 7dc96794be
commit 7cda9e575b
46 changed files with 7863 additions and 5663 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
data-raw/reproduction_of_antibiotics.R
View File

@ -851,6 +851,8 @@ antibiotics <- dataset_UTF8_to_ASCII(as.data.frame(antibiotics, stringsAsFactors
class(antibiotics$ab) <- c("ab", "character")
antibiotics <- dplyr::arrange(antibiotics, name)
# REFER TO data-raw/loinc.R FOR ADDING LOINC CODES
# make all abbreviations and synonyms lower case, unique and alphabetically sorted ----
for (i in 1:nrow(antibiotics)) {
abb <- as.character(sort(unique(tolower(antibiotics[i, "abbreviations", drop = TRUE][[1]]))))
@ -866,7 +868,6 @@ for (i in 1:nrow(antibiotics)) {
}
}
# REFER TO data-raw/loinc.R FOR ADDING LOINC CODES
usethis::use_data(antibiotics, overwrite = TRUE, version = 2, compress = "xz")
rm(antibiotics)