P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-12-14 10:30:21 +01: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

4
data-raw/reproduction_of_antivirals.R
View File

@@ -34,7 +34,7 @@ library(rvest)
# get all data from the WHOCC website
get_atc_table <- function(atc_group) {
# give as input J0XXX, like atc_group = "J05AB"
downloaded <- read_html(paste0("https://www.whocc.no/atc_ddd_index/?code=", atc_group, "&showdescription=no"))
downloaded <- read_html(paste0("https://atcddd.fhi.no/atc_ddd_index/?code=", atc_group, "&showdescription=no"))
table_title <- downloaded %>%
html_nodes(paste0('a[href^="./?code=', atc_group, '&"]')) %>%
html_text()
@@ -62,7 +62,7 @@ get_atc_table <- function(atc_group) {
)
}
# these are the relevant groups for input: https://www.whocc.no/atc_ddd_index/?code=J05A (J05 only contains J05A)
# these are the relevant groups for input: https://atcddd.fhi.no/atc_ddd_index/?code=J05A (J05 only contains J05A)
atc_groups <- c("J05AA", "J05AB", "J05AC", "J05AD", "J05AE", "J05AF", "J05AG", "J05AH", "J05AJ", "J05AP", "J05AR", "J05AX")
# get the first