create one zip file for a source package on windows

make1zip.R

make1zip = function(pname, target="zips322") {
 if (!dir.exists(target)) dir.create(target)
 target = file.path(getwd(), target)
 ins = try(BiocManager::install(pname, ask=FALSE, update=FALSE, type="binary", 
                                dependencies=TRUE, force=TRUE)) # acquire dependencies as needed
 if (inherits(ins, "try-error")) stop(sprintf("can't install %s with BiocManager", pname))
 #real_inst = try(install.packages(pname, type="source", repos=NULL))  # this uses native windows build tools from Rtools
 bpath = pkgbuild::build(pname)
 if (inherits(bpath, "try-error")) stop(sprintf("can't build %s from source", pname))
 install.packages(bpath, type="source", repos=NULL)
 pardir = .libPaths()[1]
 od = getwd()
 on.exit(setwd(od))
 setwd(pardir)
 insfld = file.path(pname)
 zip(lkf <- file.path(target, paste0(pname, "_", packageVersion(pname), ".zip")), insfld)
 unzip(lkf, list=TRUE)
 }