Nothing
`as.data.frame.block` <-
function(x,...){
con <- textConnection(x)
dat <- tryCatch(
read.table(con,header=TRUE,as.is=TRUE,check.names=FALSE,...),
error=function(e)stop('cannot process block',call.=FALSE),
finally=close(con)
)
dat
}
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.