library(RReadWriteBigDataFrame) n <- 10^8 x <- list( numeric(n), logical(n), raw(n), integer(n) ) print("saveRDS") system.time(saveRDS(x, "test1")) print("Write") system.time(Write(x, "test2")) print("readRDS") system.time(r1 <- readRDS("test1")) print("Read") system.time(r2 <- Read(dir_name = "test2")) all.equal(r1, r2)
CharacterVector
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.