#' @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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.