# HG changeset patch
# User lecorguille
# Date 1539114548 14400
# Node ID fad2e08591ac7a3635b76503ff934c8c6de948a0
# Parent  ebb6464634710bbc29027b93ae1974e4f5c91ab6
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit ba2a5c2e962a95155c344dc1864a9c76eb565e9c

diff -r ebb646463471 -r fad2e08591ac xcms_export_samplemetadata.r
--- a/xcms_export_samplemetadata.r	Tue Oct 09 12:58:43 2018 -0400
+++ b/xcms_export_samplemetadata.r	Tue Oct 09 15:49:08 2018 -0400
@@ -15,6 +15,8 @@
 sampleMetadata <- NULL
 for(image in args$images) {
     load(image)
+    if (exists("raw_data")) xdata <- raw_data
+    if (!exists("xdata")) stop("\n\nERROR: The RData doesn't contain any object called 'xdata'. This RData should have been created by an old version of XMCS 2.*")
     if (is.null(sampleMetadata))
         sampleMetadata <- xdata@phenoData@data
     else