#' Check coordinates input
#'
#' Make sure there's some way to specify genomic coordinates for tabix query.
#' @keywords internal
check_coord_input <- function(query_dat,
chrom,
bp_lower,
bp_upper) {
if (is.null(query_dat) &
all(c(is.null(chrom), is.null(bp_lower), is.null(bp_upper)))) {
stop_msg <- paste(
"+ User must specify coordinates to fetch",
"using either `query_dat` OR `chrom`,`bp_lower`, and `bp_upper`")
stop(stop_msg)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.