r - fileInput 中进度条的颜色 -- Shiny

Question

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

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)

使用上面的代码你会得到这样的结果:

希望对你有帮助!