functionsgen.R

In gb305/Rpackages:

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()