R/osc.namespace.R

#' @export

osc.namespace.genomic_coordinate <- c("chrom", "start.0base", "start.1base", "end", "strand")
# To do: check for the genome_assembly paramter value in the header.

#' @export

osc.namespace.is.genomic_coordinate <- function (osctable) {
  any(osc.namespace.genomic_coordinate %in% colnames(osctable))
}

#' @export

osc.namespace.expression <- c("raw\\.", "norm\\.", "exp\\..+\\.")

#' @export

osc.namespace <- function (osctable) {
  if (osc.namespace.is.genomic_coordinate(osctable))
    return("genomic_coordinate")
  return("Not Found")
}
charles-plessy/oscR documentation built on May 13, 2019, 3:31 p.m.