saving_files.R

> rm(list=ls())
> set.seed(123)
> library(data.table)
> library(feather)
> library(tidyverse)
> dsize=1e7
> nc <- 100
> x <- data.frame(matrix(rnorm(dsize), ncol=nc))
> ###
> ### write.table
> ###
> system.time({
> +   write.table(x, file = “~/Desktop/tmp.txt”)
> +   y <- read.table(file=“~/Desktop/tmp.txt”)
> + })
   user  system elapsed
 32.338   1.663  34.348
> ###
> ### tidyverse
> ###
> system.time({
> +   write_tsv(x, path=“~/Desktop/tmp.txt”)
> +   y <- read_tsv(file=“~/Desktop/tmp.txt”)
> + })
user  system elapsed
  4.707   0.587   5.356
> ###
> ### RDS
> ###
> system.time({
> +   saveRDS(x, file=“~/Desktop/tmp.RDS”)
> +   y <- readRDS(file=“~/Desktop/tmp.RDS”)
> + })
   user  system elapsed
  4.156   0.191   4.438
> ###
> ### data.table
> ###
> system.time({
> +   fwrite(x, file = “~/Desktop/tmp.txt”)
> +   y <- fread(file=“~/Desktop/tmp.txt”)
> + })
   user  system elapsed
  1.754   0.180   1.967
> ###
> ### feather
> ###
> system.time({
> +   write_feather(x, path=“~/Desktop/tmp.feather”)
> +   y <- read_feather(path=“~/Desktop/tmp.feather”)
> + })
   user  system elapsed
  0.090   0.091   0.190