R/dssRbind.R

In sib-swiss/dsSwissKnifeClient: DataSHIELD Tools and Utilities - client side

#' @title  Rbind 2 dataframes
#' @param new.object a character name of the new dataframe
#' @param x,y characters names of the input dataframes.
#' @param new.colnames a vector the column names of the new dataframe (optional)
#' @param async same as in datashield.assign

#' @param datasources same as in datashield.assign
#'

dssRbind <- function(newobj, x, y, new.colnames = NULL, async = TRUE, datasources = NULL){
  if(is.null(datasources)){
    datasources <- datashield.connections_find()
  }

  new.colnames <- .encode.arg(new.colnames)
  cally <- paste0('rbindDSS(', x, ',', y, ',"', new.colnames, '")')
  datashield.assign(datasources, newobj, as.symbol(cally), async = async)
}