# HG changeset patch # User recetox # Date 1716365061 0 # Node ID 2d94da58904bb676e540f59326830ac2d473c49d # Parent d70dd1d6ac4d590978d91075e048d8ccfbc07f97 planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/ramclustr commit dc508ea3521991cd42ff6c1aa8aa845b36412771 diff -r d70dd1d6ac4d -r 2d94da58904b macros.xml --- a/macros.xml Wed Apr 17 07:51:23 2024 +0000 +++ b/macros.xml Wed May 22 08:04:21 2024 +0000 @@ -67,9 +67,9 @@
- - diff -r d70dd1d6ac4d -r 2d94da58904b ramclustr.xml --- a/ramclustr.xml Wed Apr 17 07:51:23 2024 +0000 +++ b/ramclustr.xml Wed May 22 08:04:21 2024 +0000 @@ -1,4 +1,4 @@ - + A feature clustering algorithm for non-targeted mass spectrometric metabolomics data. macros.xml @@ -56,6 +56,8 @@ ramclustObj = read_ramclustr_aplcms( ms1_featuredefinitions = "$filetype.ms_dataframe.ms1_featureDefinitions", ms1_featurevalues = "$filetype.ms_dataframe.ms1_featureValues", + ms1_featuredefinitions_ext = "$filetype.ms_dataframe.ms1_featureDefinitions.ext", + ms1_featurevalues_ext = "$filetype.ms_dataframe.ms1_featureValues.ext", #if $filetype.ms_dataframe.df_phenoData: df_phenodata = "$filetype.ms_dataframe.df_phenoData", phenodata_ext = "${filetype.ms_dataframe.df_phenoData.ext}", diff -r d70dd1d6ac4d -r 2d94da58904b ramclustr_wrapper.R --- a/ramclustr_wrapper.R Wed Apr 17 07:51:23 2024 +0000 +++ b/ramclustr_wrapper.R Wed May 22 08:04:21 2024 +0000 @@ -46,9 +46,22 @@ phenodata_ext = NULL, exp_des = NULL, st = NULL, - ensure_no_na = TRUE) { - ms1_featuredefinitions <- arrow::read_parquet(ms1_featuredefinitions) - ms1_featurevalues <- arrow::read_parquet(ms1_featurevalues) + ensure_no_na = TRUE, + ms1_featuredefinitions_ext = "parquet", + ms1_featurevalues_ext = "parquet") { + if (ms1_featuredefinitions_ext == "parquet") { + ms1_featuredefinitions <- arrow::read_parquet(ms1_featuredefinitions) + } else { + ms1_featuredefinitions <- read.csv(ms1_featuredefinitions, + header = TRUE, sep = "\t" + ) + } + + if (ms1_featurevalues_ext == "parquet") { + ms1_featurevalues <- arrow::read_parquet(ms1_featurevalues) + } else { + ms1_featurevalues <- read.csv(ms1_featurevalues, header = TRUE, sep = "\t") + } if (!is.null(df_phenodata)) { if (phenodata_ext == "csv") {