Take into account additional parameters while writing partitions

fcharte · Mar 12, 2019 · e65c9f8 · e65c9f8
1 parent eecc142
commit e65c9f8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/export.R b/R/export.R
@@ -37,12 +37,12 @@ write.mldr <- function(mld, format = c("MULAN", "MEKA"), sparse = FALSE, basenam
           paste0(as.character(1:length(mld)), "x", length(mld))
 
         invisible(lapply(1:length(mld), function(i) {
-          write.mldr(mld[[i]], format, sparse, basename = paste0(basename, "-", suffix[i]))
+          write.mldr(mld[[i]], format, sparse, basename = paste0(basename, "-", suffix[i]), noconfirm, ...)
         }))
       } else {
         invisible(lapply(1:length(mld), function(i) {
-          write.mldr(mld[[i]]$train, format, sparse, basename = paste0(basename, "-", i, 'x', length(mld), '-tra') )
-          write.mldr(mld[[i]]$test, format, sparse, basename = paste0(basename, "-", i, 'x', length(mld), '-test') )
+          write.mldr(mld[[i]]$train, format, sparse, basename = paste0(basename, "-", i, 'x', length(mld), '-tra'), noconfirm, ... )
+          write.mldr(mld[[i]]$test, format, sparse, basename = paste0(basename, "-", i, 'x', length(mld), '-test'), noconfirm, ... )
         }))
       }
     else