fileInput中的进度条颜色 - 闪亮

Question

我正在尝试更改Shiny中fileInput小部件中上传进度条的颜色。我是一个有点闪亮的新手，已经搜索互联网没有结果。有什么想法吗？

Answer 1

这是一个示例应用，我使用css将进度条的颜色设为绿色。

ui <- fluidPage(

    tags$head(tags$style(".progress-bar{background-color:#3c763d;}")),

    fileInput(inputId = "fileInp", label = "Input file:",multiple = FALSE,
               accept = c(
                 "text/csv",
                 "text/comma-separated-values,text/plain",
                 ".csv"))

  )


  server <- function(input, output){


  }

  shinyApp(ui=ui, server=server)

使用上面的代码，你得到这样的东西：

希望它有所帮助！