R/partMean.R

In sib-swiss/dsSwissKnife: DataSHIELD Tools and Utilities - server side

partMean <- function(x, na.rm = TRUE){

  # must be datashield valid (more than <datashield.privacyLevel> rows):
  if(!.dsBase_isValidDSS(x)){
    return(NA)
  }

  return(list(mean = mean(x, na.rm = na.rm), len = length(x)))

}