Отображать увеличивающиеся числа от 0 до значения в блестящем информационном блоке

Question

У меня есть infoBox здесь:

Когда я загружаю это окно, я хотел бы визуализировать эти числа (7659 и 65,3%), увеличивая числа от 0. Пожалуйста, посмотрите эту демонстрацию 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)

Надеюсь, это поможет!