diff ramclustr_wrapper.R @ 3:2ec9253a647e draft

planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/ramclustr commit 8714723083359049eb1a715a946851e07f8a3a20

--- a/ramclustr_wrapper.R	Wed Jun 29 10:00:10 2022 +0000
+++ b/ramclustr_wrapper.R	Tue Sep 20 14:43:56 2022 +0000
@@ -1,10 +1,9 @@
-store_output <- function(
-    ramclustr_obj,
-    output_merge_msp,
-    output_spec_abundance,
-    msp_file) {
+store_output <- function(ramclustr_obj,
+                         output_merge_msp,
+                         output_spec_abundance,
+                         msp_file) {
     RAMClustR::write.msp(ramclustr_obj, one.file = output_merge_msp)
-    write.csv(ramclustr_obj$SpecAbund, file = output_spec_abundance, row.names = TRUE)
+    write.csv(ramclustr_obj$SpecAbund, file = output_spec_abundance, row.names = TRUE, quote = FALSE)
 
     if (!is.null(msp_file)) {
         exp_name <- ramclustr_obj$ExpDes[[1]][which(row.names(ramclustr_obj$ExpDes[[1]]) == "Experiment"), 1]
@@ -36,27 +35,25 @@
     return(data)
 }
 
-ramclustr_xcms <- function(
-    input_xcms,
-    use_pheno,
-    sr,
-    st = NULL,
-    cor_method,
-    maxt,
-    linkage,
-    min_module_size,
-    hmax,
-    deep_split,
-    normalize,
-    metadata_file = NULL,
-    qc_inj_range,
-    block_size,
-    mult,
-    mzdec,
-    rt_only_low_n,
-    replace_zeros,
-    exp_design = NULL
-) {
+ramclustr_xcms <- function(input_xcms,
+                           use_pheno,
+                           sr,
+                           st = NULL,
+                           cor_method,
+                           maxt,
+                           linkage,
+                           min_module_size,
+                           hmax,
+                           deep_split,
+                           normalize,
+                           metadata_file = NULL,
+                           qc_inj_range,
+                           block_size,
+                           mult,
+                           mzdec,
+                           rt_only_low_n,
+                           replace_zeros,
+                           exp_design = NULL) {
     obj <- load(input_xcms)
 
     batch <- NULL
@@ -100,33 +97,32 @@
         order = order,
         qc = qc,
         ExpDes = experiment
-        )
+    )
     return(x)
 }
 
-ramclustr_csv <- function(
-    ms,
-    idmsms,
-    sr,
-    st,
-    cor_method,
-    maxt,
-    linkage,
-    min_module_size,
-    hmax,
-    deep_split,
-    normalize,
-    metadata_file = NULL,
-    qc_inj_range,
-    block_size,
-    mult,
-    mzdec,
-    rt_only_low_n,
-    replace_zeros,
-    exp_design = NULL
-) {
-    if (!file.exists(idmsms))
+ramclustr_csv <- function(ms,
+                          idmsms,
+                          sr,
+                          st,
+                          cor_method,
+                          maxt,
+                          linkage,
+                          min_module_size,
+                          hmax,
+                          deep_split,
+                          normalize,
+                          metadata_file = NULL,
+                          qc_inj_range,
+                          block_size,
+                          mult,
+                          mzdec,
+                          rt_only_low_n,
+                          replace_zeros,
+                          exp_design = NULL) {
+    if (!file.exists(idmsms)) {
         idmsms <- NULL
+    }
 
     batch <- NULL
     order <- NULL
@@ -169,6 +165,6 @@
         order = order,
         qc = qc,
         ExpDes = experiment
-        )
-        return(x)
+    )
+    return(x)
 }