在Shiny中添加图标到downloadButton可以通过以下步骤实现:
install.packages("shiny")
install.packages("shinydashboard")
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
downloadButton("download", label = "Download")
)
)
server <- function(input, output) {
}
shinyApp(ui, server)
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
tags$head(
tags$link(rel = "stylesheet", href = "https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.15.3/css/all.min.css")
),
tags$style(HTML("
.download-button {
display: flex;
align-items: center;
}
.download-button i {
margin-right: 5px;
}
")),
downloadButton("download", label = span(class = "download-button", icon("download"), "Download"))
)
)
server <- function(input, output) {
}
shinyApp(ui, server)
在上述代码中,我们首先使用tags$head()
函数添加Font Awesome的CSS样式链接。然后,使用tags$style()
函数添加自定义的CSS样式,将图标与按钮文本对齐。最后,在downloadButton的label参数中使用span()
函数来包裹图标和按钮文本,并为span标签添加一个自定义的class。
这样,当应用程序运行时,downloadButton将显示一个带有图标的按钮。
请注意,上述代码中使用的是Font Awesome图标库,你也可以使用其他图标库或自定义图标来替代。只需将图标文件保存在www文件夹中,并在CSS样式中引用即可。
希望这个答案能够满足你的需求。如果你需要更多帮助,请随时提问。
领取专属 10元无门槛券
手把手带您无忧上云