Nothing
"bugs.data" <-
function(data, dir = getwd(), digits = 5, data.file = "data.txt"){
if(is.numeric(unlist(data)))
write.datafile(lapply(data, formatC, digits = digits, format = "E"),
file.path(dir, data.file))
else {
data.list <- lapply(as.list(data), get, pos = parent.frame(2))
names(data.list) <- as.list(data)
write.datafile(lapply(data.list, formatC, digits = digits, format = "E"),
file.path(dir, data.file))
}
return(data.file)
}
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.