Setwd <- function(dir) { HOME <<- getwd() goHome <<- as.function(alist(setwd(HOME))) setwd(dir) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.