diff MsPeakForestDb.R @ 5:18254e8d1b72 draft

planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit 947b8707b06176a4801de64a71c8771617311ffb-dirty
author prog
date Thu, 16 Mar 2017 08:15:11 -0400
parents 1ba222315fd5
children b8f70d8216b3
line wrap: on
line diff
--- a/MsPeakForestDb.R	Thu Mar 16 05:05:55 2017 -0400
+++ b/MsPeakForestDb.R	Thu Mar 16 08:15:11 2017 -0400
@@ -291,7 +291,7 @@
 				url <- paste0('spectra/lcms/range-rt-min/', rt.low, '/', rt.high)
 				params <- NULL
 				if ( ! is.null(col))
-					params <- c(columns = paste(col[['id']], collapse = ','))
+					params <- c(columns = paste(col, collapse = ','))
 
 				# Run query
 				rtspectra <- .self$.get.url(url = url, params = params)