闪亮：如何在闪亮的应用程序中添加反应条

Question

我正在建立一个人群，资助闪亮的应用程序，跟踪已经捐赠了多少。是否有这样的功能可以创建闪亮的反应条？如果没有，是否可以在html，css，javascript中执行此操作？

我想创建这样的东西：

Answer 1

我有两个解决方案：

（1）我可以建议您使用project.getPluginManager().apply(CustomPlugin.class); 中的gauge，它不是一个酒吧但是为了您的目的可以很好..

示例应用

flexdashboard package

（2）此功能可帮助您创建栏（取自github）

示例应用

library(shiny)
library(shinydashboard)
library(flexdashboard)


ui <- basicPage(flexdashboard::gaugeOutput("plt1"))

server <- shinyServer(function(input, output, session) {

  output$plt1 <- flexdashboard::renderGauge({
    gauge(15399, min = 0, max = 20000, symbol = '$', label = paste("Test Label"),gaugeSectors(
      success = c(15000,20000), warning = c(15000,1000), danger = c(0, 1000)))

  })
})

shinyApp(ui = ui, server = server)