library(GenomicRanges)
something <- "something"
class(something) == "character"
## [1] TRUE