如何解决R带有KPI标题的Shiny tabpanel选项卡
我想在R Shiny标签面板标题中包含KPI,如下所示,是否有一种优雅的方法可以做到这一点或可以做到这一点的软件包? (请注意,图表与问题无关)。
这是我的尝试
代码如下:
library(shinydashboard)
ui <- fluidPage({
ib1 <- infoBox("Test 1",10 * 2,icon = icon("credit-card"),fill = TRUE)
ib2 <- infoBox("Test 2",icon = icon("table"),fill = TRUE)
tabsetPanel(
tabPanel(ib1,plotOutput("plot")),tabPanel(ib2)
)
})
server <- function(input,output,session) {
output$plot <- renderPlot({
hist(
rnorm(100),main = paste("n =",100),xlab = ""
)
})
}
shinyApp(ui,server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。