在 Shiny Dashboard 中对齐多个操作按钮 Header

Question

描述了如何在shinydashboard中的dashboardHeader的右上角添加一个actionButton。我想在 dashboardHeader 中添加两个并排的操作按钮。如何将按钮放置在 header 栏中，使它们不重叠？更具体地说，有没有办法将按钮向左移动并在 dashboardHeader?

中垂直居中

Answer 1

我没法直接回答你的问题，因为我只用过Flexdashboard。但是有一个 shinyWidgets 包，其中包含一个 DropDown 小部件，允许您将多个小部件嵌入到 DropDown 中。因此，如果仪表板 header 只允许一个小部件，您可以使用下拉小部件间接访问多个小部件参见：

http://shinyapps.dreamrs.fr/shinyWidgets/

以及下拉菜单和 sweetalert 菜单项。那里的示例下拉列表包含指向底层 shinyWidgets 代码的链接。

Answer 2

也许您正在寻找这个

ui <- dashboardPage(
  dashboardHeader(title = div("Testing Work Space", 
                              img(src = 'YBS.png',
                                  title = "Just a Test Application", height = "30px"),
                              style = "position: relative; margin:-3px 0px 0px 5px; display:right-align;"
                             ), 
  titleWidth=350,
  tags$li(div(
            img(src = 'YBS.png',
                title = "A Test Graphics Application", height = "30px"),
            style = "padding-top:15px; padding-right:100px;"),
          class = "dropdown"),
  tags$li(a(href = 'http://www.cnn.com',
            icon("power-off"),
            title = "CNN Home"),
          class = "dropdown"),
  tags$li(a(href =  'https://en.wikipedia.org/wiki/Mouse', 
            tags$img(src = 'mouse.png', height = "30px"),
            title = "Mouse Home"),
          class = "dropdown")
  ),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output,session) {}

shinyApp(ui, server)

您可以调整 padding 和 margin 以满足您的需要。另外，您可以添加多个操作按钮。

在 Shiny Dashboard 中对齐多个操作按钮 Header

Aligning Multiple Action Buttons in Shiny Dashboard Header

r

shiny

shinydashboard

action-button