How put a element in middle of the header

Question

I add a button in the header. How can i put this button in middle of header ?

app_ui <- function(request) {
  tagList(dashboardPage(
      dashboardHeader(title = "Demo", tags$li(class = "dropdown", actionButton("run", "Run"))),
      dashboardSidebar(sidebarMenu()), dashboardBody()))}