automation

cbf93511 · Rauschenberger · 10c41a50 · cbf93511
Commit cbf93511 authored Jun 14, 2018 by Rauschenberger
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

R/function.R R/function.R +1 -1

No files found.
--- a/R/function.R
+++ b/R/function.R
@@ -22,7 +22,7 @@ match.samples <- function(...,message=TRUE){
    
    list <- list(...)
    if(length(list)==1 & is.list(list[[1]])){list <- list[[1]]}
-    names <- names(list)
+    names <- sapply(substitute(list(...))[-1],deparse)

    # check input
    cond <- sapply(list,function(x) !is.matrix(x))