Shiny：從閃亮應用程序中的flexdashboard測量儀

是否可以在Shiny應用程序（shinydashboard或shiny）中嵌入儀表flexdashboard（下圖）？Shiny：從閃亮應用程序中的flexdashboard測量儀

從flexdashboardwebsite一個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)

感謝您的任何提示！

來源

2017-02-21 Mal_a

你們的榜樣爲我工作 –

我的壞！我忘了從'library（flexdashboard）'中刪除'＃'！小錯誤，實際上很長時間才能弄清楚！ –

（發表解決方案代表OP）。

我忘了從#library(flexdashboard)刪除#，因此該功能gauge不能找到並計無法呈現...

來源

2017-02-21 20:30:59 halfer

Shiny：從閃亮應用程序中的flexdashboard測量儀

回答

相關問題