R/osc.namespace.R

In charles-plessy/oscR: Read, write and manipulate order-switchable column tables

#' @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")
}