| ... | ... |
@@ -285,9 +285,13 @@ updateChannels <- function(gs, map, all = TRUE){
|
| 285 | 285 |
} |
| 286 | 286 |
|
| 287 | 287 |
if(!is.null(gs@transformation)){
|
| 288 |
- cols <- names(gs@transformation) |
|
| 289 |
- new <- .matchCols(cols, map) |
|
| 290 |
- names(gs@transformation) <- new |
|
| 288 |
+ gs@transformation <- sapply(gs@transformation, function(trans){
|
|
| 289 |
+ cols <- names(trans) |
|
| 290 |
+ new <- .matchCols(cols, map) |
|
| 291 |
+ names(trans) <- new |
|
| 292 |
+ trans |
|
| 293 |
+ }, simplify = FALSE) |
|
| 294 |
+ |
|
| 291 | 295 |
} |
| 292 | 296 |
|
| 293 | 297 |
#update flow data |
