In [1]:
%load_ext RWinOut
In [2]:
%%R
library(feather)

# make a 1million x 10 dataframe 
x <- runif(1e6)
df <- as.data.frame(replicate(10, x))
tail(df)

               V1        V2        V3        V4        V5        V6        V7
999995  0.5349295 0.5349295 0.5349295 0.5349295 0.5349295 0.5349295 0.5349295
999996  0.6651066 0.6651066 0.6651066 0.6651066 0.6651066 0.6651066 0.6651066
999997  0.2003494 0.2003494 0.2003494 0.2003494 0.2003494 0.2003494 0.2003494
999998  0.4325887 0.4325887 0.4325887 0.4325887 0.4325887 0.4325887 0.4325887
999999  0.8197488 0.8197488 0.8197488 0.8197488 0.8197488 0.8197488 0.8197488
1000000 0.5498435 0.5498435 0.5498435 0.5498435 0.5498435 0.5498435 0.5498435
               V8        V9       V10
999995  0.5349295 0.5349295 0.5349295
999996  0.6651066 0.6651066 0.6651066
999997  0.2003494 0.2003494 0.2003494
999998  0.4325887 0.4325887 0.4325887
999999  0.8197488 0.8197488 0.8197488
1000000 0.5498435 0.5498435 0.5498435
In [5]:
%%R
print("writing feather:")
print(system.time(write_feather(df, 'test.feather')))
print("reading feather:")
print(system.time(read_feather('test.feather')))

[1] "writing feather:"
   user  system elapsed 
   0.04    0.04    0.09 
[1] "reading feather:"
   user  system elapsed 
   0.03    0.08    0.11
In [4]:
%%R
print("saving Rdata")
print(system.time(save(a=df, file='test.Rdata')))
print("loading Rdata")
print(system.time(load('test.Rdata')))

[1] "saving Rdata"
   user  system elapsed 
  13.91    0.05   14.38 
[1] "loading Rdata"
   user  system elapsed 
   0.58    0.08    0.65