在闪亮的信息框中显示从0到值的递增数字

Question

我在这里有一个infoBox：

当我加载此框时，我想通过将数字从0递增来可视化这些数字（7659和65.3％）。请参见此Javascript演示，了解我想要的示例，但请参见shiny ：https://jsfiddle.net/NevilPaul2/LLk0bzvm/

有人知道shiny的类似功能吗？

Answer 1

您可以执行invalidateLater功能。这是示例代码：

library(shiny)
library(shinydashboard)

header <- dashboardHeader()

sidebar <- dashboardSidebar()

body <- dashboardBody(
  infoBoxOutput("ibox"),
)

ui <- dashboardPage(header, sidebar, body)
server <- function(input, output, session){

  val <- reactiveVal(0)

  output$ibox <- renderInfoBox({
    infoBox(
      "Number",
      val(),
      icon = icon("credit-card")
    )
  })
  observe({
    invalidateLater(100, session)
    isolate({
# It will count till 5000 because of this condition
      if(val() < 5000) {
        newVal <- val()+1
        val(newVal)
      }
    })
  })
}
shinyApp(ui, server)

希望有帮助！