# HG changeset patch
# User lain
# Date 1611241239 0
# Node ID bb9ebd6365eac6222c82b45f9c44a7d5e501bd77
# Parent  6748b0663fb406f479a8fc671fe20f588a362e3c
" master branch Updating"

diff -r 6748b0663fb4 -r bb9ebd6365ea XSeekerPreparator.R
--- a/XSeekerPreparator.R	Thu Jan 21 13:31:18 2021 +0000
+++ b/XSeekerPreparator.R	Thu Jan 21 15:00:39 2021 +0000
@@ -1,7 +1,7 @@
 
 
 TOOL_NAME <- "XSeekerPreparator"
-VERSION <- "1.1.5"
+VERSION <- "1.1.6"
 
 OUTPUT_SPECIFIC_TOOL <- "XSeeker_Galaxy"
 
@@ -644,6 +644,9 @@
         curent_var_meta <- var_meta[row, ]
 
         peak_list <- context$peaks[context$groupidx[[row]], ]
+        if (! ("matrix" %in% class(peak_list))) {
+            peak_list <- matrix(peak_list, nrow=1, ncol=length(peak_list), dimnames=list(c(), names(peak_list)))
+        }
         sample_peak_list <- peak_list[as.integer(peak_list[, "sample"]) == context$sample_no, , drop=FALSE]
         if (!identical(sample_peak_list, numeric(0)) && !is.null(nrow(sample_peak_list)) && nrow(sample_peak_list) != 0) {
             if (!is.na(int_o <- extract_peak_var(sample_peak_list, "into"))) {
diff -r 6748b0663fb4 -r bb9ebd6365ea XSeekerPreparator.xml
--- a/XSeekerPreparator.xml	Thu Jan 21 13:31:18 2021 +0000
+++ b/XSeekerPreparator.xml	Thu Jan 21 15:00:39 2021 +0000
@@ -1,6 +1,6 @@
 <tool id="xseeker_preparator"
       name="XSeeker Preparator"
-      version="1.1.5"
+      version="1.1.6"
 >
     <description>Prepare RData file from CAMERA to be visualized in XSeeker</description>
     
diff -r 6748b0663fb4 -r bb9ebd6365ea galaxy/tools/LC-MSMS/XSeekerPreparator.R
--- a/galaxy/tools/LC-MSMS/XSeekerPreparator.R	Thu Jan 21 13:31:18 2021 +0000
+++ b/galaxy/tools/LC-MSMS/XSeekerPreparator.R	Thu Jan 21 15:00:39 2021 +0000
@@ -1,7 +1,7 @@
 
 
 TOOL_NAME <- "XSeekerPreparator"
-VERSION <- "1.1.5"
+VERSION <- "1.1.6"
 
 OUTPUT_SPECIFIC_TOOL <- "XSeeker_Galaxy"
 
@@ -644,6 +644,9 @@
         curent_var_meta <- var_meta[row, ]
 
         peak_list <- context$peaks[context$groupidx[[row]], ]
+        if (! ("matrix" %in% class(peak_list))) {
+            peak_list <- matrix(peak_list, nrow=1, ncol=length(peak_list), dimnames=list(c(), names(peak_list)))
+        }
         sample_peak_list <- peak_list[as.integer(peak_list[, "sample"]) == context$sample_no, , drop=FALSE]
         if (!identical(sample_peak_list, numeric(0)) && !is.null(nrow(sample_peak_list)) && nrow(sample_peak_list) != 0) {
             if (!is.na(int_o <- extract_peak_var(sample_peak_list, "into"))) {
diff -r 6748b0663fb4 -r bb9ebd6365ea galaxy/tools/LC-MSMS/XSeekerPreparator.xml
--- a/galaxy/tools/LC-MSMS/XSeekerPreparator.xml	Thu Jan 21 13:31:18 2021 +0000
+++ b/galaxy/tools/LC-MSMS/XSeekerPreparator.xml	Thu Jan 21 15:00:39 2021 +0000
@@ -1,6 +1,6 @@
 <tool id="xseeker_preparator"
       name="XSeeker Preparator"
-      version="1.1.5"
+      version="1.1.6"
 >
     <description>Prepare RData file from CAMERA to be visualized in XSeeker</description>