Shiny：来自Shiny App的flexdashboard的仪表

Question

是否可以在flexdashboard应用Shiny应用（shinydashboard或shiny）中嵌入来自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)

这是我失败的尝试：

DEV

感谢您的任何提示！

Answer 1

（代表OP发布解决方案）。

我忘记从#移除#library(flexdashboard)，因此无法找到函数gauge并且无法呈现标尺......