如何更改闪亮的 fileInput 对象的样式？

Question

我正在寻找如何将闪亮应用程序中的 fileInput 按钮的样式更改为 btn、btn-primary 或任何其他可能的样式。

shinyUI(pageWithSidebar(
  headerPanel(""),
  sidebarPanel(
  fileInput("file", "Select a file")  
  ),
mainPanel()
))

谢谢

亚历克斯

Answer 1

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  titlePanel(""),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "Select a file")  
    ),
    mainPanel()
  )
)

server <- function(input, output){
  runjs("$('#file').parent().removeClass('btn-default').addClass('btn-danger');")
}

shinyApp(ui, server)