Commit 489cafec by Eric Coissac

renames function dots.names dots_names

parent 1adae530
...@@ -8,7 +8,7 @@ make_subS3Class <- function(obj, subclass) { ...@@ -8,7 +8,7 @@ make_subS3Class <- function(obj, subclass) {
return(obj) return(obj)
} }
dots.names <- function(...) { dots_names <- function(...) {
varnames <- substitute(list(...))[-1L] varnames <- substitute(list(...))[-1L]
dots <- list(...) dots <- list(...)
isname <- sapply(varnames, is.name) isname <- sapply(varnames, is.name)
......
...@@ -234,7 +234,7 @@ procmod_frame <- function(..., ...@@ -234,7 +234,7 @@ procmod_frame <- function(...,
contrasts.arg = NULL) { contrasts.arg = NULL) {
has.row.names <- !missing(row.names) has.row.names <- !missing(row.names)
varnames <- dots.names(...) varnames <- dots_names(...)
x <- list(...) x <- list(...)
n <- length(x) n <- length(x)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment