disable waiter after first displayed result

[sarabnclui]

how disable the waiter in the infinite loop, just keep the html display
server <- function(input, output) {

observeEvent (input$execute,{
output$result <- renderUI({

  waiter <- waiter::Waiter$new()
  waiter$show()
  on.exit(waiter$hide())
  HTML(paste0("<span style='color: red;'>","Erreur inconnue, appellez le support", "</span>"))
  while (TRUE) {}
})})

}