read_data <- function(src, dest) { e <- new.env(parent=baseenv()) sys.source(src, e) write.csv(e$mtcars, dest) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.