granges_append.R

library(GenomicRanges)

interactions <- GRanges()

# GRanges with 0 ranges and 0 metadata columns:
#   seqnames    ranges strand
#      <Rle> <IRanges>  <Rle>
#  ---
#  seqlengths:

interactions_chr <- GRanges("X", strand="+", IRanges(start = c(1, 11), end = c(10, 20))) 
interactions <- append(interactions, interactions_chr[1])

# GRanges with 1 range and 0 metadata columns:
#      seqnames    ranges strand
#         <Rle> <IRanges>  <Rle>
#  [1]        X   [1, 10]      +
#  ---
#  seqlengths:
#    X
#   NA