fp <- paste(getwd(),"zip_pithy/mtcars.csv",sep = "/")
zip_fp <- paste(getwd(),"zip_pithy/mtcars.zip",sep = "/")
write.csv(mtcars, fp)
zip_pithy(zipfile = zip_fp,files = fp)
lapply(list(fp, zip_fp),file.remove)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.