From 928601ea3dc63d814a0bda9614f81c1b1ad33829 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Xavier=20Escrib=C3=A0=20Montagut?= Date: Wed, 6 Oct 2021 16:13:30 +0200 Subject: [PATCH] make valid names, do not modify NA values --- DESCRIPTION | 2 +- R/make_valid_namesDS.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 580c0e2..d6a8432 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: dsOmics Type: Package Title: DataSHIELD server site Omic functions -Version: 1.0.7-8 +Version: 1.0.7-9 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"), diff --git a/R/make_valid_namesDS.R b/R/make_valid_namesDS.R index 725e709..9d87dd6 100644 --- a/R/make_valid_namesDS.R +++ b/R/make_valid_namesDS.R @@ -13,6 +13,6 @@ 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)) + x <- x %>% rowwise() %>% mutate(across(where(is.character), ~ if(!is.na(.x)){make.names(.x)}else{NA})) return(x) } \ No newline at end of file