R shiny busy HTML template

[vinayprakash808]

Hi all,

Wanted to check for the shiny busy function , can we add a text "Please wait" below the spinner and make both text and spinner fixed in the middle of the screen

shiny_busy <- function() {
  # use &nbsp; for some alignment, if needed
  HTML(
    "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",
    paste0(
      '<span data-display-if="',
      '$(&#39;html&#39;).attr(&#39;class&#39;)==&#39;shiny-busy&#39;',
      '">',
      '<i class="fa fa-spinner fa-pulse fa-fw" style="color:orange; font-size:100px;"></i>',
      '</span>'
    )
  )

}