Serialization benchmark.

serialization_benchmark.r

library(readr)
library(data.table)
library(feather)

object.size(df)
# 1654613472 bytes
system.time(write_csv(df, "df_write_csv.csv"))
# ユーザ   システム       経過  
# 160.540     29.079    200.667
system.time(fwrite(df, "df_fwrite.csv"))
# ユーザ   システム       経過  
# 6.735     10.936     19.744
system.time(saveRDS(df, "df.RData"))
# ユーザ   システム       経過  
# 85.359      4.097     91.849 
system.time(write_feather(df, "df.feather"))
# ユーザ   システム       経過  
# 3.101      3.721     12.146