Nothing
source("incl/start.R")
library("R.utils") # writeDataFrame()
message("*** A huge TabularTextFile")
# Generate a large data frame
set.seed(42)
n <- 1e5
data <- data.frame(
index = seq_len(n),
x = runif(n),
y = rnorm(n),
symbol = sample(letters, size=n, replace=TRUE)
)
# Write to tab-delimited file
pathname <- tempfile(fileext=".tsv")
writeDataFrame(data, file=pathname)
# Setup tabular file
db <- TabularTextFile(pathname)
print(db)
# Read subset of the rows
n <- nbrOfRows(db)
data2 <- readDataFrame(db, rows=seq(from=1, to=n, length.out=0.10*n))
str(data2)
# Cleanup
file.remove(pathname)
source("incl/end.R")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.