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

new Norwegian link

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-03-03 23:24:57 +01:00
parent f2d245b0cb
commit bc4f8515e2
26 changed files with 50 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/av_property.R
View File

@ -164,7 +164,7 @@ av_ddd <- function(x, administration = "oral", ...) {
warning_(
"in `av_ddd()`: 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/"
"atcddd.fhi.no/ddd/list_of_ddds_combined_products/"
)
}
out
@ -184,7 +184,7 @@ av_ddd_units <- function(x, administration = "oral", ...) {
warning_(
"in `av_ddd_units()`: 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/"
"atcddd.fhi.no/ddd/list_of_ddds_combined_products/"
)
}
out
@ -227,7 +227,7 @@ av_url <- function(x, open = FALSE, ...) {
av <- as.av(x = x, ...)
atcs <- av_atc(av, only_first = TRUE)
u <- paste0("https://www.whocc.no/atc_ddd_index/?code=", atcs, "&showdescription=no")
u <- paste0("https://atcddd.fhi.no/atc_ddd_index/?code=", atcs, "&showdescription=no")
u[is.na(atcs)] <- NA_character_
names(u) <- av_name(av)