在R-Shiny中使用Bootstrap主题时，FileInput不起作用

Question

我正在开发一个闪亮的APP。它包含一个文件输入选项。默认主题可以正常工作。但是当我尝试使用引导主题时，“浏览”选项没有出现。下面是示例：

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)

查看图片 With Theme Without Theme

注意：请从FluidPage中的代码中删除“＃”以包含主题。您可以从https://bootswatch.com/

下载主题

让我知道为使FileInput正确工作我应该进行哪些更改？