# NOT RUN {
grng <- as_granges(data.frame(seqnames = "chr1", start = 20:23, width = 1000))
grng <- mutate(grng,
exon_id = IntegerList(a = 1, b = c(4,5), c = 3, d = c(2,5))
)
expand_ranges(grng)
expand_ranges(grng, .id = "name")
# empty list elements are not preserved by default
grng <- mutate(grng,
exon_id = IntegerList(a = NULL, b = c(4,5), c= 3, d = c(2,5))
)
expand_ranges(grng)
expand_ranges(grng, .keep_empty = TRUE)
expand_ranges(grng, .id = "name", .keep_empty = TRUE)
# }
Run the code above in your browser using DataLab