闪亮:闪亮应用中来自Flexdashboard的仪表 [英] Shiny: Gauge from flexdashboard in Shiny App
本文介绍了闪亮:闪亮应用中来自Flexdashboard的仪表的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
是否可以将flexdashboard
(下图)中的仪表嵌入到Shiny
App(shinydashboard
或shiny
)中?
flexdashboard
website中的Shiny flexdashboard
中的示例代码:
```{r}
renderGauge({
rate <- computeContactRate(input$region)
gauge(rate, min = 0, max = 100, symbol = '%', gaugeSectors(
success = c(80, 100), warning = c(40, 79), danger = c(0, 39)
))
})
```
以下是我失败的尝试:
library(shiny)
library(shinydashboard)
#library(flexdashboard)
ui <-dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
column(6,box(flexdashboard::gaugeOutput("plt1"),width=12,title="Gauge Graph",background ="green"))))
server <- shinyServer(function(input, output, session) {
output$plt1 <- flexdashboard::renderGauge({
gauge(56, min = 0, max = 100, symbol = '%', label = paste("Test Label"),gaugeSectors(
success = c(100, 6), warning = c(5,1), danger = c(0, 1), colors = c("#CC6699")
))
})
})
shinyApp(ui = ui, server = server)
谢谢您的提示!
推荐答案
(代表OP发布的解决方案)。
我忘记从#library(flexdashboard)
中删除#
,因此找不到函数gauge
,无法呈现仪表...
这篇关于闪亮:闪亮应用中来自Flexdashboard的仪表的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文