renamed function

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: dsOmics
 Type: Package
 Title: DataSHIELD server site Omic functions
-Version: 1.0.7-7
+Version: 1.0.7-8
 Date: 2021-07-08
 Authors@R: c(person("Yannick", "Marcon", , "yannick.marcon@obiba.org", role = "aut"),
   person("Xavier", "Esriba-Montagut", , "xavier.escriba@isglobal.org", role = "aut"),

NAMESPACE

@@ -28,7 +28,7 @@ export(getChromosomeNamesDS)
 export(getSNPSbyGenDS)
 export(getVariable)
 export(limmaDS)
-export(make_valid_column_namesDS)
+export(make_valid_namesDS)
 export(nFeaturesDS)
 export(nSamplesDS)
 export(plinkDS)

R/make_valid_namesDS.R

@@ -0,0 +1,18 @@
+#' @title Rename column names and character variables
+#'
+#' @description Passes the column names and the character variables through \code{make.names}, this creates 
+#' names without any special characters so there are no problems for accessing any columns or any category 
+#' when using the DataSHIELD parser.
+#'
+#' @param x \code{data.frame} Entry table to modify
+#'
+#' @return \code{data.frame} with the column names and character columns updated
+#' @export
+#'
+#' @examples
+make_valid_namesDS <- function(x){
+  x <- eval(parse(text=x), envir = parent.frame())
+  colnames(x) <- make.names(colnames(x))
+  x <- x %>% mutate(across(where(is.character), make.names))
+  return(x)
+}

inst/DATASHIELD

@@ -32,4 +32,4 @@ AssignMethods:
    RNAseqPreprocDS,
    PRSDS,
    PRSDS_aux,
-   make_valid_column_namesDS
+   make_valid_namesDS