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

2
data-raw/extractATCs.R
View File

@ -4,7 +4,7 @@ library(tidyr)
library(AMR)
# we need J01, J02 and J04 (J03 does not exist)
url <- "https://www.whocc.no/atc_ddd_index/?code={code}&showdescription=no"
url <- "https://atcddd.fhi.no/atc_ddd_index/?code={code}&showdescription=no"
complete_vector <- character(0)
for (Jxx in c("J01", "J02", "J04")) {
site <- gsub("{code}", Jxx, url, fixed = TRUE)