#!/usr/bin/env Rscript
cat("Directory this script invoke is:\n")
cat(getwd())
cat("\n")
library(rconf)
dscript <- rconf::setpwd()
cat("Directory this script located:\n")
cat(getwd())
cat("\n")
cat("Directory this script invoke is:\n")
cat(dscript)
cat("\n")
cat("Directory after setpwd called:\n")
cat(getwd())
cat("\n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.