由网友(心易碎、梦易醒)分享简介：是否可以将flexdashboard(下图)中的仪表嵌入到ShinyApp(shinydashboard或shiny)中？flexdashboardwebsite中的Shiny flexdashboard中的示例代码：```{r}renderGauge({rate <- computeContactRate(inpu...

是否可以将flexdashboard(下图)中的仪表嵌入到ShinyApp(shinydashboard或shiny)中？

flexdashboardwebsite中的Shiny flexdashboard中的示例代码：

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

谢谢您的提示！

推荐答案

(代表OP发布的解决方案)。

我忘记从#library(flexdashboard)中删除#，因此找不到函数gauge，无法呈现仪表...