r - infoBox shinydashboard 上的自定义图标
问题描述
有没有办法infoBox
在shinydashboard
. 我正在尝试使用hrbrmstr gist上的示例,但我找不到更新infoBox
函数的位置。
library(shiny)
ui <- dashboardPage(
dashboardHeader(title = "Dynamic boxes"),
dashboardSidebar(),
dashboardBody(
fluidRow(
box(width = 2, actionButton("count", "Count")),
infoBoxOutput("ibox"),
valueBoxOutput("vbox")
)
)
)
server <- function(input, output) {
output$ibox <- renderInfoBox({
infoBox(
"Title",
input$count,
#icon = icon("credit-card")
icon=icon(list(src=x, width="80px"), lib="local")
)
})
output$vbox <- renderValueBox({
valueBox(
"Title",
input$count,
icon = icon("credit-card")
)
})
}
shinyApp(ui, server)
解决方案
我使用了leonawiczapputils
的包。我用.infoBox
apputils::infoBox
library(shiny)
library(apputils)
#exApp("icons")
ui <- dashboardPage(
dashboardHeader(title = "Dynamic boxes"),
dashboardSidebar(),
dashboardBody(
fluidRow(
box(width = 2, actionButton("count", "Count")),
infoBoxOutput("ibox"),
valueBoxOutput("vbox")
)
)
)
server <- function(input, output) {
output$ibox <- renderInfoBox({
ic <- apputils::icon(list(src = "https://cdn1.iconfinder.com/data/icons/money-47/512/Money_Currency_Finance-41-512.png", width = "80px"), lib = "local")
apputils::infoBox(
"Title",
input$count,
icon = ic
#icon = icon("credit-card")
#icon=icon(list(src=x, width="80px"), lib="local")
)
})
output$vbox <- renderValueBox({
valueBox(
"Title",
input$count,
icon = icon("credit-card")
)
})
}
shinyApp(ui, server)
推荐阅读
- php - 如何在 PHP 扩展中声明 Closure `function use`?
- reactjs - 如何通过反应使x轴标签在d3中工作?
- php - 登录php和mysqli
- xamarin - 如何计算 SQLite Query Xamarin Forms 的结果?
- wordpress - Jetpack 一直在我的一个博客上加载
- python-3.x - AppEng Py Flexi :: 长时间运行的请求 :: 502 错误
- android - React-native:包括@2x 图片在内的任何优势?
- angular - 检查带有参数的验证器是否应用于表单控件
- apache-spark - 设计 NoSQL 数据模型和存储系统
- python-3.x - 为什么我不能从生成器中获取所有值?