extras/check_reverse_dependencies.md

In WinVector/rquery: Relational Query Generator for Data Manipulation at Scale

check_reverse_dependencies

library("prrd")
td <- tempdir()
package = "rquery"
date()

## [1] "Sat Aug 19 17:38:13 2023"

packageVersion(package)

## [1] '1.4.99'

parallelCluster <- NULL
ncores <- parallel::detectCores()
# prrd back to bombing out with database locked
#if(ncores > 1) {
#  parallelCluster <- parallel::makeCluster(ncores)
#}

orig_dir <- getwd()
print(orig_dir)

## [1] "/Users/johnmount/Documents/work/rquery/extras"

setwd(td)
print(td)

## [1] "/var/folders/7f/sdjycp_d08n8wwytsbgwqgsw0000gn/T//RtmpriYBBs"

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")
    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 rquery 1.4.99 
## cdata_1.2.0 started at 2023-08-19 17:38:14 success at 2023-08-19 17:38:35 (1/0/0) 
## rqdatatable_1.3.2 started at 2023-08-19 17:38:35 success at 2023-08-19 17:38:51 (2/0/0) 
## WVPlots_1.3.5 started at 2023-08-19 17:38:51 success at 2023-08-19 17:39:47 (3/0/0)

## [1] id     title  status
## <0 rows> (or 0-length row.names)

summariseQueue(package=package, directory=td)

## Test of rquery 1.4.99 had 3 successes, 0 failures, and 0 skipped packages. 
## Ran from 2023-08-19 17:38:14 to 2023-08-19 17:39:47 for 1.55 mins 
## Average of 31 secs relative to 30.808 secs using 1 runners
## 
## Failed packages:   
## 
## Skipped packages:   
## 
## None still working
## 
## None still scheduled

setwd(orig_dir)
if(!is.null(parallelCluster)) {
  parallel::stopCluster(parallelCluster)
}

WinVector/rquery documentation built on Aug. 24, 2023, 11:12 a.m.