R/simpleFunction.R

In andreaskapou/simplePackage: Simple package with BiocGenerics issue

#' Simple function
#'
#' Creating a simple function for debuggin purpose
#'
#' @param data A vector
#'
#' @importFrom methods is
#' @export
simpleFunction <- function(data) {
  methods::is(data, "vector")
  print("Hello, world!")

  gr0 <- GenomicRanges::GRanges(S4Vectors::Rle(c("chr2", "chr2", "chr1", "chr3"), c(1, 3, 2, 4)),
                 IRanges::IRanges(1:10, width=10:1))

  # Code to store the data in the data folder
  #devtools::use_data(gr0, overwrite = TRUE)
}