R Shiny - 可折叠菜单项中的右对齐操作按钮导致重影效果？

Question

我有一个闪亮的仪表板，在侧边栏菜单中有三个可折叠的菜单项。第一个菜单项包含一个我试图右对齐的操作按钮。展开菜单项时，按钮可见但溢出到第二个菜单项的标签上：

造成这种影响的原因是什么，我该如何解决？

这里是重现应用的代码：

library("shiny")
library("shinydashboard")

header = dashboardHeader()

sidebar = dashboardSidebar(
  sidebarMenu(

    menuItem("Item 1", tabName = "item1", 

             selectInput("letters", "Letters:", choices = LETTERS),

             tags$div(class = "pull-right", 
                      actionButton("clickme", label = "Click me", style = "primary")
             )

    ), 

    menuItem("Item 2"), 
    menuItem("Item 3")

  )
)
body = dashboardBody()

ui = dashboardPage(header, sidebar, body)

server = function(input,output,session){}

shinyApp(ui, server)

将class = "pull-right" 替换为style = "float:right;" 具有相同的效果。

添加此样式：

.skin-blue .sidebar-menu>li>.treeview-menu {
    overflow: auto;
}

似乎摆脱了重影问题，但在 selectInput 下拉列表的溢出部分添加了滚动，这是我不想要的：

Answer 1

要将action button 向右对齐，我们可以使用类似于here 的CSS

sidebar = dashboardSidebar(
  sidebarMenu(
    menuItem("Item 1", tabName = "item1",
             selectInput("letters", "Letters:", choices = LETTERS),
             actionButton("clickme", label = "Click me", style = "primary"),
             tags$style(type='text/css', "button#clickme {margin-left: 60%;}")), 
    menuItem("Item 2"), 
    menuItem("Item 3")
  )
)

或者

menuItem("Item 1", tabName = "item1",
             selectInput("letters", "Letters:", choices = LETTERS),
             div(style="display:inline-block;margin-left: 52%;padding-bottom: 10px;",
                 actionButton("clickme", label = "Click me", style = "primary"))