getGenes <- function(rsID, SNPsin=loadedSNPs)
{
temp <- SNPsin[[rsID]]
temp <- c(temp$eQTLs$gene, temp$eQTLsTrans$gene) %>% unique()
temp <- sort(temp)
return(temp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.