Nothing
#' @rdname makerepo
#' @aliases makeRepo,PkgManifest
setMethod("makeRepo", "PkgManifest",
function(x, cores = 1, build_pkgs = NULL,
scm_auth = list("bioconductor.org" =
c("readonly", "readonly")),
constrained_build = FALSE,
...)
{
vers = data.frame(name= manifest_df(x)$name,
version = NA, stringsAsFactors = FALSE)
sessMan = SessionManifest(manifest = x,
versions = vers)
makeRepo(sessMan, cores = cores, scm_auth = scm_auth,
build_pkgs = build_pkgs,
constrained_build = FALSE,
...)
})
#' @rdname makerepo
#' @aliases makeRepo,SessionManifest
setMethod("makeRepo", "SessionManifest",
function(x, cores = 1, build_pkgs = NULL,
scm_auth = list("bioconductor.org" =
c("readonly", "readonly")),
constrained_build = FALSE,
...)
{
repo = GRANRepository(manifest = x, param = RepoBuildParam(...))
makeRepo(repo, cores = cores, scm_auth = scm_auth,
build_pkgs = build_pkgs,
constrained_build = FALSE,
...)
})
#' @rdname makerepo
#' @aliases makeRepo,GRANRepository
setMethod("makeRepo", "GRANRepository",
function(x, cores = 1, build_pkgs = NULL,
scm_auth = list("bioconductor.org" =
c("readonly", "readonly")),
constrained_build = FALSE,
...) {
message(paste("Started makeRepo at", Sys.time()))
if(!haveGit()) {
message("Your system does not appear to have Git available. ",
"Returning NULL from makeRepo")
return(NULL)
}
repo = x
if(file.exists(destination(repo)))
repo2 = suppressWarnings(tryCatch(
loadRepo(file.path(destination(repo), "repo.R")), error = function(x) NULL))
else
repo2 = suppressWarnings(tryCatch(
loadRepo(paste(repo_url(repo), "repo.R", sep="/")),
error = function(x) NULL))
if(!is.null(repo2) ) {
res = repo_results(repo)
res2 = repo_results(repo2)
if(any(!is.na(res$lastAttempt)) && any(!is.na(res2$lastAttempt)) &&
(max(res$lastAttempt, na.rm=TRUE) < max(res2$lastAttempt, na.rm=TRUE))) {
warning("Loading latest results from specified repository")
repo = repo2
}
}
repo = init_results(repo)
if(!is.null(build_pkgs)) {
repo_results(repo)$building =
manifest_df(repo)$name %in% build_pkgs
suspended_pkgs(repo) = setdiff(suspended_pkgs(repo),
build_pkgs)
} else {
repo_results(repo)$building = !manifest_df(repo)$name %in% suspended_pkgs(repo)
repo_results(repo)$suspended <- manifest_df(repo)$name %in% suspended_pkgs(repo)
}
message(paste("Checking for (and fixing) R version mismatch in packages installed to temp library", Sys.time()))
repo = checkAndFixLibLoc(repo)
message(paste("Building", sum(getBuilding(repo)), "packages"))
##package, build thine self!
if (!constrained_build) {
repo = GRANonGRAN(repo)
}
##do checkouts
message(paste("Starting makeSrcDirs", Sys.time()))
message(paste("Building", sum(getBuilding(repo)), "packages"))
repo = makeSrcDirs(repo, cores = cores, scm_auth = scm_auth)
##add reverse dependencies to build list
repo = addRevDeps(repo)
##do checkouts again to grab reverse deps
if (!constrained_build) {
repo = makeSrcDirs(repo, cores = cores, scm_auth = scm_auth)
}
##build temp repository
message(paste("Starting buildBranchesInRepo", Sys.time()))
message(paste("Building", sum(getBuilding(repo)), "packages"))
# If we have a single package specified,
# we want to build it with or without a version bump
repo = buildBranchesInRepo( repo = repo, temp = TRUE, cores = cores,
incremental = is.null(build_pkgs))
##test packges
message(paste("Invoking package tests", Sys.time()))
message(paste("Building", sum(getBuilding(repo)), "packages"))
repo = doPkgTests(repo, cores = cores, constrained_build)
##copy successfully built tarballs to final repository
message(paste("starting migrateToFinalRepo", Sys.time()))
message(paste("Built", sum(getBuilding(repo)), "packages"))
repo = suppressWarnings(migrateToFinalRepo(repo))
# Create Windows binaries
if (make_windows_bins(repo) && getOS() == "windows") {
makeWinBins(repo, cores = cores)
}
finalizeRepo(repo, cores = cores)
message(paste("Completed makeRepo at", Sys.time()))
return(repo)
})
#' @rdname makerepo
#' @aliases makeRepo,character
setMethod("makeRepo", "character",
function(x, cores = 1, build_pkgs = NULL,
scm_auth = list("bioconductor.org" =
c("readonly", "readonly")),
constrained_build = FALSE,
...)
{
if(!grepl("^(http|git|.*repo\\.R)", x))
x2 = list.files(x, pattern = "repo\\.R", full.names = TRUE,
recursive=TRUE)[1]
else
x2 = x
repo = loadRepo(x2)
if(is.null(repo))
stop("There doesn't seem to be a repo.R file at associated",
"with the location",
x)
makeRepo(repo, cores = cores, build_pkgs = build_pkgs,
scm_auth = scm_auth,
constrained_build = constrained_build,
...)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.