diff create_sqlite_db.R @ 16:03e7f58e580e draft

planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit f396d6689e17cb5537f54ada02a6bd691c7894d7
author tomnl
date Tue, 15 May 2018 06:56:33 -0400
parents cf24c8ca7a57
children 5eebc655f01b
line wrap: on
line diff
--- a/create_sqlite_db.R	Sun May 13 13:10:31 2018 -0400
+++ b/create_sqlite_db.R	Tue May 15 06:56:33 2018 -0400
@@ -124,6 +124,9 @@
   }else{
     rtrawColumns <- TRUE
   }
+  if (is.null(xset)){
+      xset <- xsa@xa
+  }
   # previous check should have matched filelists together
   xset@filepaths <- unname(pa@fileList)
 
@@ -146,7 +149,7 @@
 
      # get peakid, an scan id
      df_ids <- stringr::str_split_fixed(df$UID, '-', 3)
-     colnames(df_ids) <- c('grp_id', 'file_id', 'peak_id')
+     colnames(df_ids) <- c('grp_id', 'file_id', 'pid')
      df <- cbind(df_ids, df)
      # export to database