possibility to combine many dataset at the same time

R/combine.R

@@ -2,8 +2,7 @@
 #' combine
 
 #' combine
-#' @param dataset1 friendlyts object
-#' @param dataset2 friendlyts object
+#' @param ... friendlyts data.frame
 #' @param precision precision
 #' @param CHECKNAS CHECKNAS
 #' @keywords friendlyts
@@ -12,16 +11,21 @@
 #' \dontrun{
 #' combine()
 #' }
-combine <- function(dataset1,dataset2,precision,CHECKNAS=TRUE){
-
-  if (inherits(dataset1,"tbl_friendlyts") && inherits(dataset2,"tbl_friendlyts")) {
-
-    icol <- get_non_date_col(precision=precision)
-    res <- cbind(dataset1,dataset2[,icol:ncol(dataset2)])
+combine <- function(...,precision,CHECKNAS=TRUE){
 
+  dataset <- list(...)
+  test <- lapply(dataset,function(x) inherits(x,"tbl_friendlyts"))
+  test <- prod(unlist(test))
+  if (test==1) {
+    icol <- get_date_col(precision=precision)
+    res <- dplyr::bind_cols(lapply(dataset,function(x){
+      res <- x[,-icol]
+      return(res)
+    }))
+    res <- dplyr::bind_cols(dataset[[1]][,icol],res)
     res <- as_tbl_friendlyts(df = res, date_type="friendlyts", precision=precision,CHECKNAS=CHECKNAS)
-
-    return(res)
   } else stop("Both datasets must be of class tbl_friendlyts")
 
+  return(res)
+
 }

man/combine.Rd

@@ -5,12 +5,10 @@
 \title{combine
 combine}
 \usage{
-combine(dataset1, dataset2, precision, CHECKNAS = TRUE)
+combine(..., precision, CHECKNAS = TRUE)
 }
 \arguments{
-\item{dataset1}{friendlyts object}
-
-\item{dataset2}{friendlyts object}
+\item{...}{friendlyts data.frame}
 
 \item{precision}{precision}