シャイニー：シャイニーAppでflexdashboardからゲージ

Question

はShinyアプリケーション（shinydashboardまたはshiny）にflexdashboard（下図）からゲージを埋め込むことが可能ですか？

flexdashboardwebsiteからShiny flexdashboard内のコード例：任意のヒントについて

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) 

ありがとう：

```{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) 
)) 
}) 
``` 

ここでは私の失敗した試みです！

Answer 1

（OPに代わって掲載された解決策）。

は私が