Question

有没有办法在R闪亮中着色fileInput按钮？看起来这可能如github上的这个page所示。但是我找不到要完成的代码。

这是我想要修改的简单应用程序，使按钮和进度条显示为红色。

在ui.R：

library(shiny)

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

和server.R

library(shiny)

shinyServer(
  function(input, output) {
  }
)

感谢您的任何建议。

Answer 1

您可以使用standard Bootstrap classes设置操作按钮的样式：

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是不可能的。您链接的页面是一个打开的拉取请求，看起来不会很快合并。

This answer提供了一个很好的描述如何使用bootstrap创建花哨的上传按钮。它也应该在Shiny中运行得很好。

Answer 2

CSS可以闪亮地用于自定义您的fileInput小部件！使用下面的代码将其涂成红色。

NB-您用于查看应用程序的任何浏览器都应具有开发人员工具，可让您检查元素并查看应用于任何元素的样式。您必须右键单击相关元素，然后选择检查！

library(shiny)

ui <- fluidPage(
  fileInput(inputId = "Test",label = ""),
  tags$style("
             .btn-file {  
             background-color:red; 
             border-color: red; 
             }

             .progress-bar {
             background-color: red;
             }

             ")
  )

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

R有光泽：颜色文件输入按钮和进度条

2 个答案: