Skip to content

Refactor/perf batch 10 - #77

Merged
StuartWheater merged 4 commits into
StuartWheater:refactor/perf-batch-10from
datashield:refactor/perf-batch-10
Sep 22, 2026
Merged

StuartWheater merged 4 commits into
StuartWheater:refactor/perf-batch-10from
datashield:refactor/perf-batch-10

Conversation

@StuartWheater

Copy link
Copy Markdown
Owner

No description provided.

@codecov-commenter

Copy link
Copy Markdown

Welcome to Codecov 🎉

Once you merge this PR into your default branch, you're all set! Codecov will compare coverage reports and display results in all future pull requests.

Thanks for integrating Codecov - We've got you covered ☂️

Comment thread R/ds.isValid.R
typ <- checkClass(datasources, x)
# call the server side function that does the job and return its output
cally <- call("isValidDS", x)
results <- DSI::datashield.aggregate(datasources, cally)
Comment thread R/ds.summary.R
if(("data.frame" %in% typ) | ("matrix" %in% typ)){
for(i in 1:numsources){
validity <- DSI::datashield.aggregate(datasources[i], as.symbol(paste0('isValidDS(', x, ')')))[[1]]
validity <- DSI::datashield.aggregate(datasources[i], call('isValidDS', x))[[1]]$valid
Comment thread R/ds.summary.R
if("character" %in% typ){
for(i in 1:numsources){
validity <- DSI::datashield.aggregate(datasources[i], as.symbol(paste0('isValidDS(', x, ')')))[[1]]
validity <- DSI::datashield.aggregate(datasources[i], call('isValidDS', x))[[1]]$valid
Comment thread R/ds.summary.R
if("factor" %in% typ){
for(i in 1:numsources){
validity <- DSI::datashield.aggregate(datasources[i], as.symbol(paste0('isValidDS(', x, ')')))[[1]]
validity <- DSI::datashield.aggregate(datasources[i], call('isValidDS', x))[[1]]$valid
Comment thread R/ds.summary.R
if(("integer" %in% typ) | ("numeric" %in% typ)){
for(i in 1:numsources){
validity <- DSI::datashield.aggregate(datasources[i], as.symbol(paste0('isValidDS(', x, ')')))[[1]]
validity <- DSI::datashield.aggregate(datasources[i], call('isValidDS', x))[[1]]$valid
Comment thread R/ds.summary.R
if("logical" %in% typ){
for(i in 1:numsources){
validity <- DSI::datashield.aggregate(datasources[i], as.symbol(paste0('isValidDS(', x, ')')))[[1]]
validity <- DSI::datashield.aggregate(datasources[i], call('isValidDS', x))[[1]]$valid
@StuartWheater
StuartWheater merged commit 0ea1003 into StuartWheater:refactor/perf-batch-10 Sep 22, 2026
1 check passed
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants