在闪亮的应用程序加载时播放自定义动画gif

Question

我希望在加载时在我的闪亮应用中播放GIF动画。我在stackoverflow中搜索并发现了这个包“shinycssloaders”。但我需要在页面加载时播放自定义动画gif。请帮我解决这个问题。

请查找闪亮应用的可重现示例

library(shiny)
library(shinydashboard)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),
                    dashboardSidebar(
                      sidebarMenu(
                        menuItem("Complete", tabName = "comp"))),
                    dashboardBody(
                      tabItems(
                        tabItem(tabName = "comp",
                                  fluidRow(
                                    box(title = "data", width = 4, solidHeader = TRUE, status = "primary", 
                                        collapsible = TRUE, tableOutput("tbe")))))))

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

  output$tbe <- renderTable(mtcars)

}

shinyApp(ui, server)

由于 SJB