title: Login Button in shinydashboard dashboardHeader
body: <p>I'm putting the finishing touches on a shinydashboard. The dashboard uses googleAuthR for authentication via google oauth. Everything is working... but I currently have to put the login button in either the dashboardSidebar or dashboardBody, and I'd really really like it up where the dropdowns go in dashboardHeader. Unfortunately, it seems like shinydashboard's header is picky about what can go up in the header. Is there a hack (or less than a hack) to put stuff up there?</p>
  
  <p>Here's a thing that definitely doesn't work, for example:</p>
  
  <pre><code>ui = dashboardPage(
    dashboardHeader(
      title = "My Awesome Dashboard"
      , p('Pretend this is a login button')
    )
    , dashboardSidebar(
      p('I don't want the login here.')
    )
    , dashboardBody(
      p('I don't want the login here either.')
    )
  )
  
  server = function(input, output, session) {
  }
  
  shinyApp(
    ui = ui
    , server = server
  )
  </code></pre>