# NOT RUN {
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"))
merge_tables_on_disk(c("tab1.csv", "tab2.csv"), ",", "merged.csv")
readr::read_csv("merged.csv")
setwd("..")
dir.remove("MergeTablesOnDisk_test")
# }
Run the code above in your browser using DataLab