Shiny Dashboard - отображает специальную страницу «loading ..» до тех пор, пока не будет начата первоначальная загрузка данных.

Question

У меня есть начальная загрузка данных из БД в server.R, которая занимает несколько секунд. Пока это не будет сделано, отображаемая страница будет искажена (неверные данные в поле выбора и странное размещение ящиков, см. Ниже).

Я хочу отобразить другую страницу (или хотя бы разное содержимое на первой вкладке) до тех пор, пока данные не будут полностью загружены.

Я думал о том, чтобы сделать какой-то conditionalPanel, используя условие, основанное на выделенной глобальной переменной (initial_loading_done), но везде, где я пытался разместить conditionalPanel, это не сработало.

Это структура моего UI.R:

shinyUI(

    dashboardPage(
    dashboardHeader(title = "Title"), 
    dashboardSidebar(
     sidebarMenu(
      menuItem("Tab1", tabName = "Tab1",icon = icon("dashboard")), 
      menuItem("Tab2", tabName = "Tab2", icon = icon("bar-chart-o")) 
     ) 
    ), 
    dashboardBody(
     includeCSS("custom_css.css"), 
     tabItems(
      tabItem(tabName = "Tab1", 
        fluidRow(<content>), 
        mainPanel(
         fluidRow(<content>) 
        ) 
      ), 
      tabItem(tabName = "Tab2", 
        fluidRow(<content>), 
        mainPanel(
         dataTableOutput('my_data_table') 
       ) 
      ) 
     ) 
    ) 
) 
) 

Answer 1

В server Мне нравится использовать reactiveValues() для хранения setupComplete состояния. Затем, когда данные загружаются, мой setupComplete установлен в TRUE.

В ui мы можем оценить это состояние setupComplete в conditionalPanel, и отображать только содержание (в моем примере три box() виджетов).

Вот рабочий пример

## app.R ## 
library(shiny) 
library(shinydashboard) 
library(shinyjs) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
     actionButton(inputId = "btn_data", label = "Download"), 
     conditionalPanel(condition = "output.setupComplete", 
      box(title = "box1"), 
      box(title = "box2"), 
      box(title = "boc3") 
     ), 
     conditionalPanel(condition = "!output.setupComplete", 
         box(title = "loading")) 
    ) 
) 

server <- function(input, output) { 

    rv <- reactiveValues() 
    rv$setupComplete <- FALSE 

    ## simulate data load 
    observe({ 

     if(input$btn_data){ 

      df <- data.frame(id = seq(1,200), 
          val = rnorm(200, 0, 1)) 

      ## Simulate the data load 
      Sys.sleep(5) 
      ## set my condition to TRUE 
      rv$setupComplete <- TRUE 
     } 

     ## the conditional panel reads this output 
     output$setupComplete <- reactive({ 
      return(rv$setupComplete) 
     }) 
     outputOptions(output, 'setupComplete', suspendWhenHidden=FALSE) 

    }) 
} 

shinyApp(ui, server) 

Answer 2

Вот очень простой пример использования shinyjs пакета

Идея заключается в том, чтобы создать загрузочную «страницу» и «страницу» содержания под различными идентификаторами, имеет содержание страница изначально скрыты, а также использовать show() и hide() после того, как приложение готово

library(shiny) 
library(shinyjs) 

load_data <- function() { 
    Sys.sleep(2) 
    hide("loading_page") 
    show("main_content") 
} 

ui <- fluidPage(
    useShinyjs(), 
    div(
    id = "loading_page", 
    h1("Loading...") 
), 
    hidden(
    div(
     id = "main_content", 
     "Data loaded, content goes here" 
    ) 
) 
) 

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

shinyApp(ui = ui, server = server) 

Answer 3

код

hidden(
    div(
     id = "main_content", 
     "Data loaded, content goes here" 
    ) 

не работает с tabsetPanel. Но если вы переместили id на уровень div, он прекрасно работает. Спасибо shinyjs автор Дин Аттали за этот совет. https://stackoverflow.com/users/4432127/keshete

hidden(
     div(id = "mainTabsetPanel", 
      tabsetPanel(
....