rm(list=ls(all=TRUE)) # removes existing data
workspace.folder <- function(inputStr, toRemove) {
toRemove=c("PileupScript")
d <- unlist(strsplit(inputStr, "/"))
paste(d[!d %in% toRemove], collapse = "/")
}
setwd(workspace.folder(dirname(rstudioapi::getActiveDocumentContext()$path)))
library(devtools)
# install.packages("roxygen2")
library(roxygen2)
document()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.