Info links for Genomics Reports

infoLinksForGenomics.R

# Create links in datatabels for gene info modal
createGeneInfoLink <- function(val) {
  sprintf(paste0('<a href="https://www.genecards.org/cgi-bin/carddisp.pl?gene=', val ,'" target="_blank" class="tooltip-test" onClick="gene_click(this.id)" title="', val, '">', val, '</a>'))
  
}
# Create links in datatables for GSEA info from MSIGDB
createGSEAInfoLink <- function(val, valTitle) {
  sprintf(paste0('<a href="http://software.broadinstitute.org/gsea/msigdb/cards/', val,'" id="', val ,'" target="_blank" class="tooltip-test" onClick="gsea_click(this.id)" title="', val, '">', valTitle, '</a>'))
}
# Create links in datatables for GEO accessions
createGEOInfoLink <- function(val) {
  sprintf(paste0('<a href="https://www.ncbi.nlm.nih.gov/geo/query/acc.cgi?acc=', val ,'" target="_blank" class="tooltip-test" onClick="gene_click(this.id)" title="', val, '">', val, '</a>'))
}
# Create links in datatables for SRA accessions
createSRAInfoLink <- function(val) {
  sprintf(paste0('<a href="https://www.ncbi.nlm.nih.gov/sra/?term=', val ,'" target="_blank" class="tooltip-test" onClick="gene_click(this.id)" title="', val, '">', val, '</a>'))
}

Helper functions for creating various links useful in the presentation of genomics data.