R/tab.contact_links.r

In ChristopherBarrington/seuratvis: Visualise data in a Seurat object

contact_links.menu <- function()
  bquote({
    # menu tab hyperlinks
    list(hr=hr(),
         email_me=menuItem(text='mail me', href='mailto:christopher.barrington@crick.ac.uk?subject=[seuratvis] Hello there', icon=icon('comment-dots'), newtab=FALSE),
         bug_report=menuItem(text='report a bug', href='mailto:christopher.barrington@crick.ac.uk?subject=[seuratvis] I found a bug!', icon=icon('bug'), newtab=FALSE),
         feature_request=menuItem(text='suggest a feature', href='mailto:christopher.barrington@crick.ac.uk?subject=[seuratvis] It would be cool if...', icon=icon('lightbulb'), newtab=FALSE),
         github_link=menuItem(text=sprintf('GitHub (version: %s)', packageVersion('seuratvis')), href='http://github.com/ChristopherBarrington/seuratvis', icon=icon('code-branch'), newtab=FALSE)) %>%
      append(x=menus) -> menus})

contact_links.list <- function()
  list(bug_report=menuItem(text='report a bug', href='http://github.com/ChristopherBarrington/seuratvis/issues/new', icon=icon('bug'), newtab=FALSE),
       feature_request=menuItem(text='suggest a feature', href='http://github.com/ChristopherBarrington/seuratvis/issues/new', icon=icon('lightbulb'), newtab=FALSE),
       github_link=menuItem(text=sprintf('GitHub (version: %s)', packageVersion('seuratvis')), href='http://github.com/ChristopherBarrington/seuratvis', icon=icon('code-branch'), newtab=FALSE),
       email_me=menuItem(text='mail me', href='mailto:christopher.barrington@crick.ac.uk?subject=[seuratvis] Hello there', icon=icon('envelope-open'), newtab=FALSE))