对fileInput按钮使用shinyWidgets

Question

我正在制作的一个闪亮的应用程序中的所有按钮都使用shinyWidgets。我还使用了一个fileInput按钮，我希望这个按钮与我的shinyWidgets::actionBttn具有相同的样式。有没有办法做到这一点？

library(shiny)
library(shinyWidgets)

shinyUI(fluidPage(

  # Application title
  titlePanel("Uploac a file"),

  fileInput("Myfile",label="",multiple = FALSE),br(),
  actionBttn("textPrep",label = "Browse")
))

Answer 1

你可以这样做：

library(shiny)
library(shinyWidgets)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),

  # Application title
  titlePanel("Upload a file"),

  fileInput("Myfile", label="", multiple = FALSE), 
  br(),
  actionBttn("textPrep", label = "Browse")
)

server <- function(input, output){
  addCssClass(class = "bttn bttn-unite bttn-default bttn-no-outline", 
              selector = ".btn-file")
}

shinyApp(ui, server)