# HG changeset patch
# User lecorguille
# Date 1539114603 14400
# Node ID 942ffa3c38b8f5d0ad4b5907609110099ffbe7db
# Parent  008aceb33627e9cdc77fc49bb73a678db751c023
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit ba2a5c2e962a95155c344dc1864a9c76eb565e9c

diff -r 008aceb33627 -r 942ffa3c38b8 xcms_export_samplemetadata.r
--- a/xcms_export_samplemetadata.r	Tue Oct 09 12:57:14 2018 -0400
+++ b/xcms_export_samplemetadata.r	Tue Oct 09 15:50:03 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