comparison 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
comparison
equal deleted inserted replaced
4:1ba222315fd5 5:18254e8d1b72
289 if (nrow(results) > 0) { 289 if (nrow(results) > 0) {
290 # Build URL for rt search 290 # Build URL for rt search
291 url <- paste0('spectra/lcms/range-rt-min/', rt.low, '/', rt.high) 291 url <- paste0('spectra/lcms/range-rt-min/', rt.low, '/', rt.high)
292 params <- NULL 292 params <- NULL
293 if ( ! is.null(col)) 293 if ( ! is.null(col))
294 params <- c(columns = paste(col[['id']], collapse = ',')) 294 params <- c(columns = paste(col, collapse = ','))
295 295
296 # Run query 296 # Run query
297 rtspectra <- .self$.get.url(url = url, params = params) 297 rtspectra <- .self$.get.url(url = url, params = params)
298 298
299 299