Shiny: Wskaźnik z Flexdashboard w aplikacji Shiny App - błyszczący, błyszczący panel, flexdashboard

Czy możliwe jest osadzenie miernika flexdashboard (zdjęcie poniżej) w Shiny Aplikacja (shinydashboard lub shiny)?

Przykładowy kod w Shiny flexdashboard z flexdashboard stronie internetowej:

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

Oto moja nieudana próba:

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)

Dzięki za wszelkie wskazówki!

Odpowiedzi:

(Wysłane rozwiązanie w imieniu OP).

Zapomniałem usunąć # od #library(flexdashboard), dlatego funkcja gauge nie można znaleźć i miernika nie można renderować ...