library("prrd")
td <- tempdir()
package = "rqdatatable"
date()
## [1] "Sat Aug 19 22:08:37 2023"
packageVersion(package)
## [1] '1.3.3'
parallelCluster <- NULL
ncores <- 0
# # parallel doesn't work due to https://github.com/r-lib/liteq/issues/22
#ncores <- parallel::detectCores()
#parallelCluster <- parallel::makeCluster(ncores)
orig_dir <- getwd()
print(orig_dir)
## [1] "/Users/johnmount/Documents/work/rqdatatable/extras"
setwd(td)
print(td)
## [1] "/var/folders/7f/sdjycp_d08n8wwytsbgwqgsw0000gn/T//Rtmprl8Mqo"
options(repos = c(CRAN="https://cloud.r-project.org"))
jobsdfe <- enqueueJobs(package=package, directory=td)
mk_fn <- function(package, directory) {
force(package)
force(directory)
function(i) {
library("prrd")
options(repos = c(CRAN="https://cloud.r-project.org"))
setwd(directory)
Sys.sleep(1*i)
dequeueJobs(package=package, directory=directory)
}
}
f <- mk_fn(package=package, directory=td)
if(!is.null(parallelCluster)) {
parallel::parLapply(parallelCluster, seq_len(ncores), f)
} else {
f(0)
}
## ## Reverse depends check of rqdatatable 1.3.3
## cdata_1.2.1 started at 2023-08-19 22:08:39 success at 2023-08-19 22:09:00 (1/0/0)
## WVPlots_1.3.7 started at 2023-08-19 22:09:00 success at 2023-08-19 22:09:57 (2/0/0)
## [1] id title status
## <0 rows> (or 0-length row.names)
summariseQueue(package=package, directory=td)
## Test of rqdatatable 1.3.3 had 2 successes, 0 failures, and 0 skipped packages.
## Ran from 2023-08-19 22:08:39 to 2023-08-19 22:09:57 for 1.3 mins
## Average of 39 secs relative to 39.321 secs using 1 runners
##
## Failed packages:
##
## Skipped packages:
##
## None still working
##
## None still scheduled
setwd(orig_dir)
if(!is.null(parallelCluster)) {
parallel::stopCluster(parallelCluster)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.