반짝이는 대시 보드로드 중

Question

대시 보드의로드 페이지를 만들려고하는데 작동하지 않는 것 같습니다. 나는 그 예를 따랐다. Shiny Dashboard - display a dedicated "loading.." page until initial loading of the data is done하지만 유동적 인 페이지를위한 것이지 반짝이는 대시 보드가 아니며 적응 방법을 알 수 없습니다.

도움이 될 것입니다.

로딩 페이지가 유동적 인 페이지 (헤더 또는 사이드 바 없음)로되어 있고 내 대시 보드에 반짝이는 대시 보드가 있어야합니다.

추가 사항 :로드하는 화면에 gif를 추가 할 수 있다면 정말 좋을 것입니다. 같은 뭔가 :

<iframe src="https://giphy.com/embed/BlmF3MhGfa4SY" width="480" height="360" frameBorder="0" class="giphy-embed" allowFullScreen></iframe><p><a href="https://giphy.com/gifs/plane-BlmF3MhGfa4SY">via GIPHY</a></p> 

[휴식]

library (shiny) 
library (shinydashboard) 
library(shinyjs) 


rm(list=ls()) 

appCSS <- " 
#loading_page { 
    position: absolute; 
    background: #000000; 
    opacity: 0.9; 
    z-index: 100; 
    left: 0; 
    right: 0; 
    height: 100%; 
    text-align: center; 
    color: #FFFFFF; 
} 
" 
header <- dashboardHeader() 
sidebar <- dashboardSidebar() 
body <- dashboardBody("It worked!") 


ui <- dashboardPage(
    useShinyjs(), 
    inlineCSS(appCSS), 
    div(
    id = "loading_page", 
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody("Loading...") 
), 
    hidden(
    div(
     id = "main_content", 
     header, sidebar, body 
    ) 
) 
) 


server = function(input, output, session) { 
    # Simulate work being done for 4 second 
    Sys.sleep(4) 

    hide("loading_page") 
    show("main_content") 
    } 

shinyApp(ui, server) 

Answer 1

`shinycssloaders` 도움을 사용 shinycssloaders

library(shiny) 
library(shinycssloaders) 
library(highcharter) 

ui <- fluidPage(
     mainPanel(
       plotOutput("my_plot") %>% withSpinner(color="#0dc5c1") 
     ) 
) 

server <- function(input, output){ 

     output$my_plot <- renderPlot({ 
       Sys.sleep(1) 
       plot(mtcars)}) 
} 

shinyApp(ui, server)