为 fileInput 按钮使用 shinyWidgets

【问题标题】：Using shinyWidgets for fileInput button为 fileInput 按钮使用 shinyWidgets
【发布时间】：2019-10-09 21:51:26
【问题描述】：

我正在使用的闪亮应用程序中的所有按钮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")
))

【问题讨论】：

标签： r shiny

【解决方案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)

【讨论】：