Nothing
`hsLineReader` <-
function(file="",chunkSize=-1L, skip=0L, FUN=function(x) cat(x,sep='\n')) {
if (skip>0) {
junk = readLines(file, n=skip)
}
repeat {
a = readLines(con=file, n=chunkSize,warn=TRUE)
if (length(a) ==0) break
FUN(a)
}
}
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.