| ... | ... |
@@ -315,7 +315,7 @@ UcscTrack <- function(track, table = NULL, |
| 315 | 315 |
} |
| 316 | 316 |
args <- lapply(list(...), function(x) {
|
| 317 | 317 |
if (is.character(x) && length(x) == 1) {
|
| 318 |
- if (!x %in% colnames(tableDat)) x else tableDat[, x] |
|
| 318 |
+ if (!x %in% colnames(tableDat)) x else unlist(tableDat[, x]) |
|
| 319 | 319 |
} else {
|
| 320 | 320 |
x |
| 321 | 321 |
} |
