setwd(tempdir())
dir.create("MergeTablesOnDisk_test")
setwd("MergeTablesOnDisk_test")
tab1 <- tibble::tibble(x = 1, y = 2)
tab2 <- tibble::tibble(x = 1, y = 29)
mapply(readr::write_csv, list(tab1, tab2), paste0(c("tab1", "tab2"), ".csv"))
MergeTablesOnDisk(c("tab1.csv", "tab2.csv"), ",", "merged.csv")
readr::read_csv("merged.csv")
setwd("..")
RemoveDirs("MergeTablesOnDisk_test")
Run the code above in your browser using DataCamp Workspace