Replace the annotations slot of an epiRomicsS4 object

Assigns a new GRanges object to the annotations slot. Validity is checked via validObject.

Usage

annotations(x, ...) <- value

# S4 method for class 'epiRomicsS4'
annotations(x, ...) <- value

Arguments

x

An epiRomicsS4 object.

...

Currently unused; reserved for method extension.

value

A GRanges object.

Value

The updated epiRomicsS4 object.

Examples

db <- make_example_database()
gr <- GenomicRanges::GRanges("chr1", IRanges::IRanges(1, 100))
gr$type <- "hg38_custom_h3k4me1"
annotations(db) <- gr
length(annotations(db))
#> [1] 1