Not enough padding around bookmarkButton in sidebar

[wch]

For example:

library(shiny)
library(shinydashboard)

ui <- function(req) {
  dashboardPage(
    dashboardHeader(),
    dashboardSidebar(
      sliderInput("s", "Slider", 1, 100, 20),
      dateInput("d", "Date"),
      bookmarkButton()      
    ),
    dashboardBody()
  )
}

server <- function(input, output) {}

shinyApp(ui, server, enableBookmarking = "url")

[wch]

Also, we should make sure that other buttons, like actionButtons look OK.