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

(v0.7.1.9035) cephalosporins and unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-08-11 19:07:26 +02:00
parent 3f5828e74a
commit 1d423cca89
38 changed files with 382 additions and 361 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/mo_property.R
View File

@ -318,7 +318,7 @@ mo_synonyms <- function(x, ...) {
}
})
if (length(syns) > 1) {
names(syns) <- mo_fullname(x)
names(syns) <- mo_name(x)
result <- syns
} else {
result <- unlist(syns)
@ -340,7 +340,7 @@ mo_info <- function(x, language = get_locale(), ...) {
url = unname(mo_url(y, open = FALSE)),
ref = mo_ref(y))))
if (length(info) > 1) {
names(info) <- mo_fullname(x)
names(info) <- mo_name(x)
result <- info
} else {
result <- info[[1L]]
@ -368,7 +368,7 @@ mo_url <- function(x, open = FALSE, ...) {
NA_character_))
u <- df$url
names(u) <- AMR::mo_fullname(mo)
names(u) <- AMR::mo_name(mo)
if (open == TRUE) {
if (length(u) > 1) {
warning("only the first URL will be opened, as `browseURL()` only suports one string.")