Блестящий: Калибровка из flexdashboard в Shiny App

Question

Можно ли встроить датчик из flexdashboard (рисунок ниже) в Shiny App (shinydashboard или shiny)?

Пример кода в Shiny flexdashboard от flexdashboardwebsite:

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

Спасибо за любые советы!

Answer 1

(опубликовано решение от имени ОП).

Я забыл удалить # из #library(flexdashboard), поэтому функция gauge не может быть найти и калибр не может быть вынесена ...