Commit 489cafec by Eric Coissac

renames function dots.names dots_names

parent 1adae530
......@@ -8,7 +8,7 @@ make_subS3Class <- function(obj, subclass) {
return(obj)
}
dots.names <- function(...) {
dots_names <- function(...) {
varnames <- substitute(list(...))[-1L]
dots <- list(...)
isname <- sapply(varnames, is.name)
......
......@@ -234,7 +234,7 @@ procmod_frame <- function(...,
contrasts.arg = NULL) {
has.row.names <- !missing(row.names)
varnames <- dots.names(...)
varnames <- dots_names(...)
x <- list(...)
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