We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 78fab13 commit bc251a8Copy full SHA for bc251a8
R/parameters.R
@@ -29,11 +29,13 @@ parameters.param <- function(x, ...) {
29
#' @export
30
#' @rdname parameters
31
parameters.list <- function(x, ...) {
32
+ check_dots_empty()
33
+
34
elem_param <- purrr::map_lgl(x, inherits, "param")
35
if (any(!elem_param)) {
36
cli::cli_abort("The objects should all be {.cls param} objects.")
37
}
- elem_name <- purrr::map_chr(x, ~ names(.x$label))
38
+ elem_name <- purrr::map_chr(x, ~names(.x$label))
39
elem_id <- names(x)
40
if (length(elem_id) == 0) {
41
elem_id <- elem_name
0 commit comments