docs: updated docs with authorship and parameters

Author: timcadman

R/cDS.R

@@ -3,27 +3,29 @@
 #' @description This function is similar to the R base function 'c'.
 #' @details Unlike the R base function 'c' on vector or list of certain 
 #' length are allowed as output
-#' @param objs a list which contains the the objects to concatenate.
+#' @param x.names a character vector of object names to concatenate.
 #' @return a vector or list
 #' @author Gaye, A.
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
-#' 
-cDS <- function (objs) {
-  
+#'
+cDS <- function (x.names) {
+
   # Check Permissive Privacy Control Level.
   dsBase::checkPermissivePrivacyControlLevel(c('permissive', 'avocado'))
-  
-  # this filter sets the minimum number of observations that are allowed 
+
+  # this filter sets the minimum number of observations that are allowed
 
   #############################################################
   # MODULE 1: CAPTURE THE nfilter SETTINGS
   thr <- dsBase::listDisclosureSettingsDS()
   nfilter.tab <- as.numeric(thr$nfilter.tab)
-  #nfilter.glm <- as.numeric(thr$nfilter.glm)
-  #nfilter.subset <- as.numeric(thr$nfilter.subset)
-  #nfilter.string <- as.numeric(thr$nfilter.string)
   #############################################################
-  
+
+  objs <- list()
+  for (i in seq_along(x.names)) {
+    objs[[i]] <- .loadServersideObject(x.names[i])
+  }
   x <-  unlist(objs)
 
   # check if the output is valid and output accordingly

R/lengthDS.R

@@ -1,3 +1,4 @@
+
 #'
 #' @title Returns the length of a vector or list
 #' @description This function is similar to R function \code{length}.

R/listDS.R

@@ -3,17 +3,21 @@
 #' @description this function is similar to R function 'list'
 #' @details Unlike the R function 'list' it takes also a vector of characters,
 #' the names of the elements in the output list.
-#' @param input a list of objects to coerce into a list
-#' @param eltnames a character list, the names of the elements in the list.
+#' @param x.names a character vector of object names to coerce into a list.
+#' @param eltnames a character vector, the names of the elements in the list.
 #' @return a list
 #' @author Gaye, A.
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
-#' 
-listDS <-function (input=NULL, eltnames=NULL){
-  
-  mylist <- input
+#'
+listDS <-function (x.names=NULL, eltnames=NULL){
+
+  mylist <- list()
+  for (i in seq_along(x.names)) {
+    mylist[[i]] <- .loadServersideObject(x.names[i])
+  }
   names(mylist) <- unlist(eltnames)
 
   return(mylist)
-  
+
 }