P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 08:52:15 +02:00
Code Releases Activity

(v1.1.0.9016) small fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-05-21 12:28:57 +02:00
parent 743f9a5364
commit 1b1e243d14
18 changed files with 30 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/atc_online.R
View File

@ -128,7 +128,7 @@ atc_online_property <- function(atc_code,
returnvalue <- rep(NA_character_, length(atc_code))
}
progress <- progress_estimated(n = length(atc_code))
progress <- progress_estimated(n = length(atc_code), 3)
on.exit(close(progress))
for (i in seq_len(length(atc_code))) {
@ -160,7 +160,7 @@ atc_online_property <- function(atc_code,
as.data.frame(stringsAsFactors = FALSE)
# case insensitive column names
colnames(tbl) <- tolower(colnames(tbl)) %>% gsub("^atc.*", "atc", .)
colnames(tbl) <- gsub("^atc.*", "atc", tolower(colnames(tbl)))
if (length(tbl) == 0) {
warning("ATC not found: ", atc_code[i], ". Please check ", atc_url, ".", call. = FALSE)