Переместить заголовок HTML в блестящем приложении

Question

У меня есть базовая блестящая панель инструментов, в которой я хотел бы немного переместить заголовок «Задать данные для просмотра» вправо, чтобы выровнять его по selectInput().Аргумент align не помогает при этом, использую ли я left right или center.

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    h5('Specify Data to View',align = "left"),
    selectInput("select", label = "Select box", 
                choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3), 
                selected = 1)
  ),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)