R блестящий занят HTML шаблон

Question

Требуется проверить функцию блестящей занятости, можем ли мы добавить текст «Пожалуйста, подождите» под счетчиком и сделать так, чтобы текст и счетчик фиксировались в середине экрана

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>'
    )
  )

}