P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 01:22:25 +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

15
R/ab_property.R
View File

@ -283,12 +283,6 @@ ab_ddd <- function(x, administration = "oral", ...) {
meet_criteria(administration, is_in = c("oral", "iv"), has_length = 1)
x <- as.ab(x, ...)
if (any(ab_name(x, language = NULL) %like% "/")) {
warning_("DDDs of combined products are available for different dose combinations and not (yet) part of the AMR package. ",
"Please refer to the WHOCC website:\n",
"www.whocc.no/ddd/list_of_ddds_combined_products/", call = FALSE)
}
ddd_prop <- administration
# old behaviour
units <- list(...)$units
@ -301,7 +295,14 @@ ab_ddd <- function(x, administration = "oral", ...) {
} else {
ddd_prop <- paste0(ddd_prop, "_ddd")
}
ab_validate(x = x, property = ddd_prop)
out <- ab_validate(x = x, property = ddd_prop)
if (any(ab_name(x, language = NULL) %like% "/" & is.na(out)) ) {
warning_("DDDs of some combined products are available for different dose combinations and not (yet) part of the AMR package. ",
"Please refer to the WHOCC website:\n",
"www.whocc.no/ddd/list_of_ddds_combined_products/", call = FALSE)
}
out
}
#' @rdname ab_property