3
Можно ли встроить датчик из flexdashboard
(рисунок ниже) в Shiny
App (shinydashboard
или shiny
)?Блестящий: Калибровка из flexdashboard в Shiny App
Пример кода в Shiny flexdashboard
от flexdashboard
website:
```{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)
Спасибо за любые советы!
Вашего примера работает для меня –
моих плохого! Я забыл удалить '#' из 'library (flexdashboard)'! Небольшая ошибка и на самом деле долгое время, чтобы разобраться! –