#' @title Change (Working) Directory
#'
#' @description This function allows setwd() and getwd() in one step.
#' @param loc where you want to set the working directory
#' @keywords wd, working directory
#' @export
#' @examples
#' cd("~/Files")
cd<- function(loc){
setwd(loc)
wd <- getwd()
print(paste("Working Directory set to:", wd))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.