Adding a company Logo to ShinyDashboard header

by

I’ve been working with a bit of a hack for this, (and I know you didn’t ask for it, but here’s a clickable logo while we’re at it):

library(shiny)
library(shinydashboard)

dbHeader <- dashboardHeader()
dbHeader$children[[2]]$children <-  tags$a(href="http://mycompanyishere.com",
                                           tags$img(src="logo.png",height="60",width="200"))

dashboardPage(
       dbHeader,
       dashboardSidebar(),
       dashboardBody()
)

So this nests a shiny.tag inside the header. The second slot in this particular shiny object is the logo slot (You’ll need a ‘logo.png’ in your /www/ folder in the app directory)

EDIT:

I just checked, and as of right now, this hack should no longer be necessary, you can insert the html directly from the dashboardHeader function via the title= parameter, (Before, that parameter was enforcing text only),

I think the answer might still be useful as a method to modify existing shiny functions where things ARE hardcoded in though.

Here’s the method now:

dashboardPage(
    dashboardHeader(title = tags$a(href="http://mycompanyishere.com",
                                    tags$img(src="logo.png")))

or, adding a little more magic to the logo (I also use my logo as a loading bar):

# Takes a location 'href', an image location 'src', a loading gif 'loadingsrc'
# height, width and alt text, and produces a loading logo that activates while
# Shiny is busy
loadingLogo <- function(href, src, loadingsrc, height = NULL, width = NULL, alt = NULL) {
  tagList(
    tags$head(
      tags$script(
        "setInterval(function(){
                     if ($('html').attr('class')=='shiny-busy') {
                     $('div.busy').show();
                     $('div.notbusy').hide();
                     } else {
                     $('div.busy').hide();
                     $('div.notbusy').show();
           }
         },100)")
  ),
  tags$a(href=href,
         div(class = "busy",  
             img(src=loadingsrc,height = height, width = width, alt = alt)),
         div(class="notbusy",
             img(src = src, height = height, width = width, alt = alt))
   )
  )
}

dashboardBody(
  dashboardHeader(title = loadingLogo('http://mycompanyishere.com',
                                      'logo.png',
                                      'loader.gif'),
  dashboardSidebar(),
  dashboardBody()
)

More Related Contents:

  1. How do you pass parameters to a shiny app via URL
  2. Show content for menuItem when menuSubItems exist in Shiny Dashboard
  3. shinydashboard some Font Awesome Icons Not Working
  4. Passing data within Shiny Modules from Module 1 to Module 2
  5. Shiny Dashboard – display a dedicated “loading..” page until initial loading of the data is done
  6. Starting Shiny app after password input
  7. How to save plots that are made in a shiny app
  8. Make conditionalPanel depend on files uploaded with fileInput
  9. drop-down checkbox input in shiny
  10. ‘Reset inputs’ button in shiny app
  11. How to change ‘Maximum upload size exceeded’ restriction in Shiny and save user file inputs?
  12. Subset based on variable column name
  13. Favicon in Shiny
  14. Control the height in fluidRow in R shiny
  15. How to color sliderbar (sliderInput)?
  16. Update handsontable by editing table and/or eventReactive
  17. R Shiny set DataTable column width
  18. Shiny app: downloadHandler does not produce a file
  19. Get the event which is fired in Shiny?
  20. Remove ‘search’ option but leave ‘search columns’ option
  21. How to implement a cleanup routine in R Shiny?
  22. dplyr – groupby on multiple columns using variable names
  23. Add values to a reactive table in shiny
  24. How to add Rtools\bin to the system path in R
  25. Are there global variables in R Shiny?
  26. ToolTip when you mouseover a ggplot on shiny
  27. How to pass environment variables to shinyapps
  28. Set global object in Shiny
  29. Shiny – observe() triggered by dynamicaly generated inputs
  30. How to convert docx to PDF?

Leave a Comment