如何更改闪亮的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)