library(filesampler)
system.time({
x <- sample_csv("big.csv", method="exact", param=15000, verbose=TRUE)
})
system.time({
x <- sample_csv("big.csv", param=.001, verbose=TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.