FileInput не работает при использовании темы Bootstrap в R-Shiny

Question

Я работаю над блестящим приложением. Он содержит опцию ввода файла. Он отлично работает с темой по умолчанию. Но когда я пытаюсь использовать загрузочную тему, опция «Обзор» не появляется. Ниже приведен пример:

library(shiny)

ui <- shinyUI(fluidPage(#theme = "bootstrap.min (2).css",
  titlePanel("this is test"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file","Choose a file")
    ),
    mainPanel(
      textOutput("text")
    )
  )
) 
)

server <- shinyServer(function(input, output, session) { 
      output$text <- renderText({
        paste("This is test")
    })
  })

shinyApp(ui=ui,server=server)

см. Изображения с темой Без Темы

Примечание. Пожалуйста, удалите «#» из кода в FluidPage, чтобы включить тему. Вы можете скачать темы из https://bootswatch.com/

Дайте мне знать, какие изменения, я полагаю, внесены для корректной работы FileInput?