shiny two reactive buttons on the same app

two_reactive_buttons.R

## Execute multiple buttons

foo <- function() {
  message("one")
  Sys.sleep(0.5)
  message("two")
}

bar <- function() {
  message("alpha")
  Sys.sleep(0.5)
  message("beta")
}


runApp(shinyApp(
  ui = fluidPage(
    shinyjs::useShinyjs(),
    h3("foo button"),
    actionButton("btn_foo","Click me for foo"),
    textOutput("text_foo"),
    h3("bar button"),
    actionButton("btn_bar","Click me for bar"),
    textOutput("text_bar")
  ),
  server = function(input,output, session) {
    
    #foo 
    observeEvent(input$btn_foo, {
      withCallingHandlers({
        shinyjs::html("text_foo", "")
        foo()
      },
      message = function(m) {
        shinyjs::html(id = "text_foo", html = m$message, add = TRUE)
      })
    })
    
    
    #bar 
    observeEvent(input$btn_bar, {
      withCallingHandlers({
        shinyjs::html("text_bar", "")
        bar()
      },
      message = function(m) {
        shinyjs::html(id = "text_bar", html = m$message, add = TRUE)
      })
    })

  }
))