mySave <- function(..., file) { callingF = sys.call(-1) cTime = Sys.time() cWd = getwd() sInfo = Sys.info() metadata = list(callingF, cTime, cWd, sInfo) save(..., metadata, file = file) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.