gene_exons <- function(tops, project_info) {
query_genes <- read_query_rds(project_info, "query_genes.rds")
chr_id <- as.character(unique(tops$chr))
range_Mbp <- range(tops$pos) + c(-1,1) * 0.005
feature_tbl <- query_genes(chr_id, range_Mbp[1], range_Mbp[2])
qtl2pattern::gene_exon(tops, feature_tbl)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.