Nothing
writenh <- function(newdata, newfile) {
rowss <- apply(newdata, 1, paste, collapse = " ")
for (i in 1:nrow(newdata) - 1) {
rowss[i] <- paste0(rowss[i], "\n")
}
writeLines(rowss, sep = "", newfile)
}
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.