mirror of
https://github.com/msberends/AMR.git
synced 2025-07-08 22:41:52 +02:00
fixes
This commit is contained in:
@ -363,7 +363,7 @@ set_ab_names <- function(data, ..., property = "name", language = get_AMR_locale
|
||||
|
||||
if (is.data.frame(data)) {
|
||||
if (tryCatch(length(list(...)) > 0, error = function(e) TRUE)) {
|
||||
out <- tryCatch(suppressWarnings(c(...)), error = function(e) NULL)
|
||||
out <- tryCatch(suppressWarnings(unlist(list(...))), error = function(e) NULL)
|
||||
if (!is.null(out)) {
|
||||
df <- data[, out, drop = FALSE]
|
||||
} else {
|
||||
|
Reference in New Issue
Block a user