refactor colnames

Author: timcadman

R/colnamesDS.R

@@ -0,0 +1,17 @@
+#'
+#' @title Returns the column names of a data frame or matrix
+#' @description This function is similar to R function \code{colnames}.
+#' @details The function returns the column names of the input dataframe or matrix
+#' @param x a string character, the name of a dataframe or matrix
+#' @return the column names of the input object
+#' @author Demetris Avraam, for DataSHIELD Development Team
+#' @export
+#'
+colnamesDS <- function(x){
+  x.val <- .loadServersideObject(x)
+  .checkClass(obj = x.val, obj_name = x, permitted_classes = c("data.frame", "matrix"))
+  out <- colnames(x.val)
+  return(out)
+}
+#AGGREGATE FUNCTION
+# colnamesDS