Mercurial > repos > recetox > waveica
comparison waveica_wrapper.R @ 8:bf32ae95a06f draft default tip
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/waveica commit 44e9371974b176490222f96d532df2421571cbaa
| author | recetox |
|---|---|
| date | Tue, 06 Aug 2024 14:27:48 +0000 |
| parents | 1a2aeb8137bf |
| children |
comparison
equal
deleted
inserted
replaced
| 7:1a2aeb8137bf | 8:bf32ae95a06f |
|---|---|
| 192 # Match group labels with [blank/sample/qc] and enumerate them | 192 # Match group labels with [blank/sample/qc] and enumerate them |
| 193 enumerate_groups <- function(group) { | 193 enumerate_groups <- function(group) { |
| 194 group[grepl("blank", tolower(group))] <- 0 | 194 group[grepl("blank", tolower(group))] <- 0 |
| 195 group[grepl("sample", tolower(group))] <- 1 | 195 group[grepl("sample", tolower(group))] <- 1 |
| 196 group[grepl("qc", tolower(group))] <- 2 | 196 group[grepl("qc", tolower(group))] <- 2 |
| 197 group[grepl("standard", tolower(group))] <- 3 | |
| 197 | 198 |
| 198 return(group) | 199 return(group) |
| 199 } | 200 } |
| 200 | 201 |
| 201 # Create appropriate input for R wavelets function | 202 # Create appropriate input for R wavelets function |