R/bindwrite.R

In ahmad-alkadri/databinders: Data Reading, Binding and Writing

#' Binding and rewriting into a single file all particular type datasets in a repository
#'
#' @description A function for binding all dataset files in a
#' particular repository and writing them into a new dataframe.
#' Current supported input format: CSV, XLSX, and ODS
#'
#' @usage bindwrite(repo, type = "xlsx", output = "databound.xlsx")
#'
#' @param repo A string with the name and/or destination of the repository
#'
#' @param type The targeted type of the data files.
#' Currently support XLSX ("xlsx"), ODS ("ods"), and CSV ("csv").
#'
#' @param output The name of the output file which will contain
#' the bound datasets.
#'
#' @return A dataset file containing all bound datasets.
#'
#' @examples
#'
#' download.file(url = "https://github.com/ahmad-alkadri/databinders/raw/master/Examples.zip",
#'               destfile = "Examples.zip")
#'
#' unzip(zipfile = "Examples.zip")
#'
#' bindwrite(repo = "Examples/XLSX/", type = "xlsx", output = "iris-all.xlsx")

bindwrite <- function(repo = getwd(), type = "xlsx", output = "databound.xlsx"){

  # obtain the current directory
  homedir = getwd()

  # setting the directory into the target repo
  setwd(repo)

  file_list <- list.files()

  for (file in file_list){

    # if the merged dataset doesn't exist, create it
    if (!exists("dataset")){
      dataset <- rio::import(file)
    } else {

      # if the merged dataset does exist, append to it
      tmp_dataset <-rio::import(file)
      dataset<-rbind(dataset, tmp_dataset)
      rm(tmp_dataset)
    }

  }

  # go back to the home directory
  setwd(homedir)

  rio::export(dataset, file = output)

  rm(dataset)

  return(print(paste("Data exported successfully as ", output, ".", sep = "")))

}