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

}