R/create_gene_query_func_cc.R

In byandell/CCSanger: Utilities to get and use Sanger data for Collaborative Cross

#' @export
create_gene_query_func_cc <- function(dbfile) {
  function(chr, start, stop) {
    # This only gets features with names, which are genes.
    dplyr::filter(
      get_mgi_features(chr, start, stop, with_name = FALSE,
                       sql_file = dbfile),
      start = start * 1e-6,
      stop = stop * 1e-6)
  }
}