pageWithSidebar和标题上的按钮闪亮

Question

我正在使用带左侧边栏的pageWithSidebar。现在我想在页面的右上角添加按钮。我怎么能实现这个目标？ http://shiny.rstudio.com/reference/shiny/latest/pageWithSidebar.html 我找到了仪表板，但结构与常规闪亮的外观不同。 https://rstudio.github.io/shinydashboard/structure.html

  navbarPage(
title = 'DataTable Options',
tabPanel('Display length',     DT::dataTableOutput('ex1')),
tabPanel('Length menu',        DT::dataTableOutput('ex2')),
tabPanel('No pagination',      DT::dataTableOutput('ex3')),
tabPanel('No filtering',       DT::dataTableOutput('ex4')),
tabPanel('Function callback',  DT::dataTableOutput('ex5'))
)pageWithSidebar(
 headerPanel("test"),
  sidebarPanel(
textInput("globalSearch", "Search", "")))