r - 如何在shiny中使用html、css、js代码来获取spinner

Question

我想在这个网站上使用手动加载器https://codepen.io/averzea/pen/PrLeaV有一个百分比加载器的代码我不知道如何在 R 中实现 html、css、js 代码来制作微调器

library(shiny)
library(shinybusy)

ui <- fluidPage(

  busy_start_up(
    loader = spin_epic("orbit", color = "#FFF"),
    text = "Loading...",
    timeout = 1500,
    color = "#FFF",
    background = "#112446"
  ),

  tags$h1("Ready to play!", class = "text-center")

)

server <- function(input, output, session) {

}

if (interactive())
  shinyApp(ui, server)