R shiny: display “loading…” message while function is running

by

I’m already using a simpler and more reliable way than the one I posted before.

A combination of

tags$style(type="text/css", "
           #loadmessage {
             position: fixed;
             top: 0px;
             left: 0px;
             width: 100%;
             padding: 5px 0px 5px 0px;
             text-align: center;
             font-weight: bold;
             font-size: 100%;
             color: #000000;
             background-color: #CCFF66;
             z-index: 105;
           }
  ")

with

conditionalPanel(condition="$('html').hasClass('shiny-busy')",
                 tags$div("Loading...",id="loadmessage")
)

Example:

runApp(list(
  ui = pageWithSidebar(
      headerPanel("Test"),
         sidebarPanel(
           tags$head(tags$style(type="text/css", "
             #loadmessage {
               position: fixed;
               top: 0px;
               left: 0px;
               width: 100%;
               padding: 5px 0px 5px 0px;
               text-align: center;
               font-weight: bold;
               font-size: 100%;
               color: #000000;
               background-color: #CCFF66;
               z-index: 105;
             }
          ")),
           numericInput('n', 'Number of obs', 100),
           conditionalPanel(condition="$('html').hasClass('shiny-busy')",
                            tags$div("Loading...",id="loadmessage"))
         ),
         mainPanel(plotOutput('plot'))
  ),
  server = function(input, output) {
    output$plot <- renderPlot({ Sys.sleep(2); hist(runif(input$n)) })
  }
))

tags$head() is not required, but it’s a good practice to keep all the styles inside head tag.

More Related Contents:

  1. R shiny passing reactive to selectInput choices
  2. R Shiny: Handle Action Buttons in Data Table
  3. shiny 4 small textInput boxes side-by-side
  4. R Shiny: reactiveValues vs reactive
  5. Shiny: what is the difference between observeEvent and eventReactive?
  6. how to insert new line in R shiny string
  7. Rtools is not being detected from RStudio
  8. how to create two independent drill down plot using Highcharter?
  9. Is it possible to stop executing of R code inside shiny (without stopping the shiny process)?
  10. Formatting reactive data.frames in Shiny
  11. Advantages of reactive vs. observe vs. observeEvent
  12. Adding a company Logo to ShinyDashboard header
  13. What is “object of type ‘closure’ is not subsettable” error in Shiny?
  14. Deploying R shiny app as a standalone application [closed]
  15. Shiny: passing input$var to aes() in ggplot2
  16. How to embed an image in a cell a table using DT, R and Shiny
  17. Show content for menuItem when menuSubItems exist in Shiny Dashboard
  18. How to listen for more than one event expression within a Shiny observeEvent
  19. Downloading png from Shiny (R)
  20. Edit datatable in Shiny with dropdown selection for factor variables
  21. Shiny renderUI selectInput returned NULL
  22. Are there global variables in R Shiny?
  23. ToolTip when you mouseover a ggplot on shiny
  24. How to pass environment variables to shinyapps
  25. Get selected rows of Rhandsontable
  26. Set global object in Shiny
  27. Shiny – observe() triggered by dynamicaly generated inputs
  28. How to convert docx to PDF?
  29. Get the size of the window in Shiny
  30. RStudio Shiny list from checking rows in dataTables

Leave a Comment