Mercurial > repos > prog > lcmsmatching
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 |
