shinydashboard dashboardHeader中的登录按钮

Question

我正在为shinydashboard做最后的润色.仪表板使用googleAuthR通过google oauth进行身份验证.一切正常......但我现在必须将登录按钮放在dashboardSidebar或dashboardBody中,我真的很喜欢它在dashboardHeader中的下拉菜单.不幸的是,似乎shinydashboard的标题对标题中的内容很挑剔.将东西放在那里是否存在黑客攻击(或者不是黑客攻击)？

这是一个绝对不起作用的东西,例如:

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
)

Answer 1

您可以在标题中放置任何内容,但它必须是li类的标记dropdown.请参阅以下示例:

ui = dashboardPage(
  dashboardHeader(
    title = "My Awesome Dashboard",
    tags$li(class = "dropdown",
            tags$li(class = "dropdown", textOutput("logged_user"), style = "padding-top: 15px; padding-bottom: 15px; color: #fff;"),
            tags$li(class = "dropdown", actionLink("login", textOutput("logintext"))))
  )
  , dashboardSidebar(), dashboardBody())

server = function(input, output, session) {
  logged_in <- reactiveVal(FALSE)

  # switch value of logged_in variable to TRUE after login succeeded
  observeEvent(input$login, {
    logged_in(ifelse(logged_in(), FALSE, TRUE))
  })

  # show "Login" or "Logout" depending on whether logged out or in
  output$logintext <- renderText({
    if(logged_in()) return("Logout here.")
    return("Login here")
  })

  # show text of logged in user
  output$logged_user <- renderText({
    if(logged_in()) return("User 1 is logged in.")
    return("")
  })

}

shinyApp(ui = ui, server = server)