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的{​​{1}}标记。请参阅以下示例：

dropdown

Answer 2

好的，我想我是根据Adding a company Logo to ShinyDashboard header计算出来的，但我不确定为什么它有效。这是一般的想法：

my_header = dashboardHeader(
  title = "My More Awesome Dashboard"
)

my_header$children[[3]]$children[[3]] = p('Login goes here', style = 'float: right')

ui = dashboardPage(db_header, dashboardSidebar, dashboardBody)

现在看看我是否可以在某处找到解释$ children东西的文档......