inst/examples/shiny_apps/loading_button_test/app.R

In Tychobra/tychobratools: Some customizations for R and Shiny

library(shiny)
library(tychobratools)

ui <- fluidPage(
  fluidRow(
    column(
      12,
      h1("Test App"),
      loading_button(
        "my_loading_bytton",
        "Loading Button"
      ),
      actionButton(
        "reset",
        "Reset Button"
      )
    )
  )
)

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

  observeEvent(input$reset, {

    reset_loading_button("my_loading_bytton")
  })

}

shinyApp(ui, server)