R/DANGERvarsEXTRACTDS.R

In datashield/dsDanger: DataSHIELD server side DANGER functions

#'
#' @export
#' 

DANGERvarsEXTRACTDS <- function(xName=NULL,yName=NULL,zName=NULL,uName=NULL,vName=NULL,wName=NULL){

  if(!is.null(xName)){
    xvar <- eval(parse(text=xName))
  }
  if(!is.null(yName)){
    yvar <- eval(parse(text=yName))
  }
  if(!is.null(zName)){
    zvar <- eval(parse(text=zName))
  }

  if(!is.null(uName)){
    uvar <- eval(parse(text=uName))
  }
  if(!is.null(vName)){
    vvar <- eval(parse(text=vName))
  }
  if(!is.null(wName)){
    wvar <- eval(parse(text=wName))
  }

  varnames.vector<-xName
  output.matrix<-matrix(xvar)

  if(!is.null(yName)){
    varnames.vector<-c(varnames.vector,yName)
    output.matrix<-cbind(output.matrix,yvar)
  }

  if(!is.null(zName)){
    varnames.vector<-c(varnames.vector,zName)
    output.matrix<-cbind(output.matrix,zvar)
  }

  if(!is.null(uName)){
    varnames.vector<-c(varnames.vector,uName)
    output.matrix<-cbind(output.matrix,uvar)
  }
  if(!is.null(vName)){
    varnames.vector<-c(varnames.vector,vName)
    output.matrix<-cbind(output.matrix,vvar)
  }
  if(!is.null(wName)){
    varnames.vector<-c(varnames.vector,wName)
    output.matrix<-cbind(output.matrix,wvar)
  }

  DANGERvars<-data.frame(output.matrix)
  names(DANGERvars)<-varnames.vector
  return(DANGERvars)
}

#AGGEGATE FUNCTION
# DANGERvarsEXTRACTDS