如何将因子 Rle 转换为有序保留字符串列表？右

Question

好吧，我有一个对象，我恢复了一个看起来像这样的因子-RLE：

x <- rle(c(1,1,1,2,2,3,4,4,4))

我想对 x 做一些事情，这样就返回了：

1 1 1 2 2 3 4 4 4

我的例子有点复杂，因为我的对象看起来像这样：

factor-Rle of length 622253 with 50 runs
  Lengths: 32201 28715 22210 25478 20264 19072 15278 12130 14763 12299 13659 16494 ...
  Values :     +     -     +     -     +     -     +     -     +     -     +     - ...
Levels(3): + - *

因为原始对象有 62090 个元素，并且每个元素都有 >=1 个具有值 +、- 或 * 的条目

在这个示例中，我想知道如何恢复值 (+, -, 或 *) 以相同的顺序 出现。

这将是更可重现的示例：

if (!require("BiocManager"))
install.packages("BiocManager")
BiocManager::install("GenomicRanges")
library(GenomicRanges)

gr <- GRanges(seqnames = Rle(c("chr1"), c(3)), ranges = IRanges(c(1, 13, 22), width=c(12, 6, 6)), strand = "+")
gr2 <- GRanges(seqnames = "chr1", ranges = IRanges(c(15, 30), width=c(15, 6)), strand = "+")
gr3 <- GRanges(seqnames = "chr1", ranges = IRanges(c(34, 40, 58), width=c(2, 7, 7)), strand = "-")
gr4 <- GRanges(seqnames = "chr1", ranges = IRanges(c(80, 92, 105,140), width=c(5,3,9,15)), strand = "+")

并且，从此，我想获得一个包含以下内容的对象：

+ + - +

再一次，我的尝试将我引向因子 Rle 对象：

> grl@unlistData@strand
factor-Rle of length 12 with 3 runs
Lengths: 5 3 4
Values : + - +
Levels(3): + - *