#' @title Open Working Directory
#'
#' @description Open Working Directory
#' @param NA
#' @keywords wd
#' @export
#' @examples
#' openwd()
openwd <- function(){system(paste("open", getwd()))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.