[timcadman]

dslite_lib <- tools::R_user_dir("dsBaseClient-demo", "data")
dir.create(dslite_lib, recursive = TRUE, showWarnings = FALSE)
if (!dir.exists(file.path(dslite_lib, "dsBase"))) {
install.packages("dsBase_7.0.0.tar.gz", repos = NULL, lib = dslite_lib)
}
.libPaths(c(dslite_lib, .libPaths()))

library(DSI)
library(DSLite)
library(dsBase)
devtools::load_all(".", quiet = TRUE)

options(datashield.errors.print = TRUE)
options(datashield.progress = FALSE)

login.data <- DSLite::setupDATASETTest("dsBase")
conns <- datashield.login(logins = login.data, assign = TRUE)

ds.asCharacter(x.name = "D$NUMERIC", newobj = "mixed", datasources = conns[1])
ds.asNumeric(x.name = "D$NUMERIC", newobj = "mixed", datasources = conns[2:3])
ds.rep(x1 = 1, times = 5, source.times = "c", newobj = "short", datasources = conns[1])
ds.asList(x.name = "D$NUMERIC", newobj = "mylist", datasources = conns)

demo_cli_messages_02_run.R:
run <- function(expr) {
withCallingHandlers(
tryCatch(expr, error = function(e) cat(rlang::cnd_message(e, prefix = TRUE), "\n")),
warning = function(w) { cat(rlang::cnd_message(w, prefix = TRUE), "\n"); invokeRestart("muffleWarning") }
)
cat("\n")
invisible(NULL)
}

.checkArgProvided

run(ds.metadata(x = NULL, datasources = conns))

.checkArgsSet

run(ds.rBinom(samp.size = NULL, newobj = "x", datasources = conns))

.resolveNewobjName / .checkNewobjName

run(ds.asNumeric(x.name = "D$NUMERIC", newobj = 1:2, datasources = conns))

.seedAsText

run(ds.rNorm(seed.as.integer = "abc", newobj = "x", datasources = conns))

.abortInvalidChoice

run(ds.rowColCalc("D", operation = "bogus", datasources = conns))

.expandToStudies

run(ds.rNorm(mean = c(1, 2), newobj = "x", datasources = conns))

.warnOffsetInFormula

run(ds.glm("D$NUMERIC~D$INTEGER+offset(D$POSITIVE_NUMERIC)", family = "gaus))

.verifyDatasources / .resolveDatasources

run(ds.metadata(x = "D", datasources = list(1, 2)))

checkClass (via ds.summary)

run(ds.summary("mixed", datasources = conns))

isDefined (via ds.glm -> glmChecks)

run(ds.glm("D$NOPECOLUMN~D$INTEGER", family = "gaussian", checks = TRUE, datasources = conns[1]))

.checkClassConsistency (via ds.boxPlot)

run(ds.boxPlot("D$CHARACTER", datasources = conns))

.checkObjectClasses (via ds.rbind)

run(ds.rbind("mylist", DataSHIELD.checks = TRUE, datasources = conns))

.checkMultiObjectConsistency (via ds.cbind)

run(ds.cbind(x = c("D", "D"), DataSHIELD.checks = TRUE, datasources = conns
run(ds.cbind(x = c("D", "short"), DataSHIELD.checks = TRUE, datasources = c

glmChecks (via ds.glm, negative weight)

run(ds.glm("D$NUMERIC~D$INTEGER", family = "gaussian", weights = "D$NEGATIVE_NUMERIC", checks = TRUE, datasources = conns[1]))

ds.table

run(ds.table("D$CHARACTER", datasources = conns))

[github-actions]

❌ 4 of 5 checks failed

Check	Result
Devtools checks	❌ failed
Code quality	❌ 14 new findings (package total: 1906)
Armadillo unit tests	❌ [ FAIL 3 | WARN 0 | SKIP 21 | PASS 10754 ]
Opal unit tests	❌ [ FAIL 1 | WARN 0 | SKIP 11 | PASS 4870 ]
Test coverage	ℹ️ no coverable lines changed (project: 70.5%)

Tested against dsBase versions:
Armadillo: 7.0.0.9000
Opal: 7.0.0.9000

Logs: Devtools checks · Code quality · Armadillo unit tests · Opal unit tests · Codecov

[github-actions]

⏳ 0 of 5 checks reported so far

Check	Result
Devtools checks	⏳ pending
Code quality	⏳ pending
Armadillo unit tests	⏳ pending
Opal unit tests	⏳ pending
Test coverage	⏳ pending

Tested against dsBase versions:
Armadillo: pending
Opal: pending

Logs: pending · pending · pending · pending · pending