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

(v1.7.1.9026) updated DDDs

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-08-19 23:43:02 +02:00
parent 1b62bab007
commit 2ab21b7af3
26 changed files with 266 additions and 219 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
data-raw/reproduction_of_antibiotics.R
View File

@ -699,23 +699,46 @@ antibiotics$atc <- updated_atc
# update DDDs from WHOCC website ------------------------------------------
# last time checked: 2021-06-23
ddd_oral <- double(length = nrow(antibiotics))
ddd_iv <- double(length = nrow(antibiotics))
# last time checked: 2021-08-19
ddd_oral <- rep(NA_real_, nrow(antibiotics))
ddd_oral_units <- rep(NA_character_, nrow(antibiotics))
ddd_iv <- rep(NA_real_, nrow(antibiotics))
ddd_iv_units <- rep(NA_character_, nrow(antibiotics))
progress <- progress_ticker(nrow(antibiotics))
for (i in seq_len(nrow(antibiotics))) {
on.exit(close(progress))
progress$tick()
if (!is.na(antibiotics$atc[i])) {
ddd_oral[i] <- atc_online_ddd(antibiotics$atc[i], administration = "O")
ddd_iv[i] <- atc_online_ddd(antibiotics$atc[i], administration = "P") # parenteral
Sys.sleep(1)
atcs <- antibiotics$atc[[i]]
if (!all(is.na(atcs))) {
for (j in seq_len(length(atcs))) {
# oral
if (is.na(ddd_oral[i])) {
ddd_oral[i] <- atc_online_ddd(atcs[j], administration = "O")
if (!is.na(ddd_oral[i])) {
ddd_oral_units[i] <- atc_online_ddd_units(atcs[j], administration = "O")
}
}
# parenteral
if (is.na(ddd_iv[i])) {
ddd_iv[i] <- atc_online_ddd(atcs[j], administration = "P")
if (!is.na(ddd_iv[i])) {
ddd_iv_units[i] <- atc_online_ddd_units(atcs[j], administration = "P")
}
}
}
}
if (!is.na(ddd_oral[i]) | !is.na(ddd_iv[i])) {
# let the WHO server rest for 0.25 second - they might have a limitation on the queries per second
Sys.sleep(0.25)
}
}
ddd_oral[ddd_oral == 0] <- NA_real_
ddd_iv[ddd_iv == 0] <- NA_real_
antibiotics$oral_ddd <- ddd_oral
antibiotics$oral_units <- ddd_oral_units
antibiotics$iv_ddd <- ddd_iv
antibiotics$iv_units <- ddd_iv_units
# Wrap up -----------------------------------------------------------------
# set as data.frame again
antibiotics <- as.data.frame(antibiotics, stringsAsFactors = FALSE)