build.r

require(roxygen2)
require(devtools)
require(rmarkdown)

#------------------------------------------------------------------------------
#	Change working directory to package directory
#------------------------------------------------------------------------------
get.this.file.dir <- function() {
	args <- commandArgs()
	with.file <- grepl("--file=", args)
	if (any(with.file)) {
		# The script was executed from Rscript.
		file.path <- sub("--file=", "", args[with.file])
	} else {
		# The script was sourced from R.
		file.path <- sys.frames()[[1]]$ofile
	}
	return(dirname(normalizePath(file.path)))
}

old.wd <- setwd(get.this.file.dir())


#------------------------------------------------------------------------------
#	Build documentation.
#------------------------------------------------------------------------------
unlink("man", recursive = TRUE)
document()

unlink("inst/doc", recursive = TRUE)
build_vignettes()


#------------------------------------------------------------------------------
#	Build source package
#------------------------------------------------------------------------------
if (!file.exists("build")) {
	dir.create("build")
}
build(path = "build", vignettes = FALSE)


#------------------------------------------------------------------------------
#	Restore working directory.
#------------------------------------------------------------------------------
setwd(old.wd)
rm(old.wd)
Marchen/partial.plot documentation built on Feb. 13, 2025, 4:18 a.m.