library(BiocBuildTools)
library(rcmdcheck)
library(BiocCheck)
if (!dir.exists("bcchecks")) dir.create("bcchecks")
if (!dir.exists("bcobj")) dir.create("bcobj")
sources.folder = "./srcs316"
bcchecks.destination = "./bcchecks"
bcobj.destination = "./bcobj"
library(BiocParallel)
spar = SnowParam(30, threshold="DEBUG")
bplog(spar) = TRUE
bplogdir(spar) = "~/BBS_space/BPLOGS_bc"
bptimeout(spar) = 30
register(spar)
#register(SerialParam(threshold="DEBUG"))
set.seed(1234)
goal = dir(sources.folder)
done = gsub(".BiocCheck$", "", dir(bcchecks.destination))
todo = setdiff(goal, done)
print(head(todo))
print(length(todo))
todopaths = paste0(sources.folder, "/", todo)
shuffle = function(x) sample(x, size=length(x), replace=FALSE)
allbc3 = bplapply(shuffle(todopaths), function(x) {
print(x)
futile.logger::flog.info(paste0("'x' = ", x))
futile.logger::flog.error(paste0("'x' = ", x))
ans = try(bco2df(BiocCheck::BiocCheck(x, checkDir=bcchecks.destination)))
dest = paste0("./bcobj/", paste0(basename(x), "_chk.rds"))
saveRDS(ans, dest)
NULL
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.