R闪亮：彩色文件输入按钮和进度条

有没有办法上色fileInputR 中的按钮闪亮吗？看起来这是可能的，如此处所示page https://github.com/rstudio/shiny/pull/602在 github 上。但是我找不到完成此操作的代码。

这是一个简单的应用程序，我想将其修改为将按钮和进度条设置为红色。

In ui.R:

library(shiny)

shinyUI(fluidPage(
  titlePanel("Test"),
  fileInput("Test","")
))

and server.R

library(shiny)

shinyServer(
  function(input, output) {
  }
)

感谢您的任何建议。

您可以使用标准 Bootstrap 类 http://getbootstrap.com/css/#buttons-options设置操作按钮的样式：

library(shiny)

shinyApp(
    ui=shinyUI(bootstrapPage(
        actionButton("infoButton", "Info", class="btn-info"),
        actionButton("warningButton", "Warning", class="btn-warning"),
        actionButton("successButton", "Success", class="btn-success"),
        actionButton("dangerButton", "Danger", class="btn-danger"),
        actionButton("defaultButton", "Default", class="btn-default"),
        actionButton("primaryButton", "Primary", class="btn-primary")
    )),
    server=shinyServer(function(input, output, session){
    })
)

据我所知，关于文件输入，如果不直接使用 CSS 是不可能的。您链接的页面是一个打开的拉取请求，看起来不会很快合并。

这个答案 https://stackoverflow.com/a/18164555/1560062很好地描述了如何使用 bootstrap 创建精美的上传按钮。它在 Shiny 中应该也能正常工作。