Блестящий слайдерTextInput сделает видимым весь текст метки

Question

if (interactive()) {
library("shiny")
library("shinyWidgets")

ui <- fluidPage(
  br(),
  sliderTextInput(
    inputId = "mySliderText",
    label = "Month range slider:",
    choices = month.name,
    selected = month.name[c(4, 7)]
  ),
  verbatimTextOutput(outputId = "result")
)

server <- function(input, output, session) {
  output$result <- renderPrint(str(input$mySliderText))
}

shinyApp(ui = ui, server = server)

}

source: https://rdrr.io/github/dreamRs/shinyWidgets/man/sliderTextInput.html

Я хотел бы видеть все названия месяцев на слайдере.Спасибо