Show a message instead of/within plot while data is loading in R Shiny

Question

Is there a possibility in R Shiny to replace a plot with a "loading" message while additional data is loading? I am using a big dataset in my app and since not all data is always necessary, I split the data in two parts and initially load only a smaller sample.

Only when the full dataset is chosen in a dropdown menu, I load the full sample. Since loading takes some time and freezes the plot, I would like to show a message instead and show the plot only when the loading is done. Example:

library(shiny)

ui <- fluidPage(
  selectInput("select_length","Length",choices = c("Short","Long"), multiple= FALSE, selected = "Short"),
  plotOutput("hist")
)

server <- function(input, output){
  rv <- reactiveValues()
  rv$df <- c(1,2)

  observeEvent(input$select_length,{
    Sys.sleep(5)
    df_new <- c(3,4)
    rv$df <- c(rv$df, df_new)
    },
    once = TRUE,
    ignoreInit = TRUE
  )

  output$hist <- renderPlot({
    barplot(rv$df)
  })
}

shinyApp(ui = ui, server = server)

I would like to show a plot with a simple "loading" message while the additional data is being loaded, e.g.:

plot(c(0, 1), c(0, 1), ann = F, bty = 'n', type = 'n', xaxt = 'n', yaxt = 'n')
text(x = 0.5, y = 0.5, paste("Data is loading..."), cex = 1.6, col = "black")

Possible duplicate: stackoverflow.com/questions/17325521/… — MrFlick
– MrFlick, Commented Apr 10, 2018 at 16:24
Possible duplicate: stackoverflow.com/questions/18237987/… — MrFlick
– MrFlick, Commented Apr 10, 2018 at 16:25
Since shiny 1.1, you can show interactive contents while the additional data loads by using futures. See here — Gregor de Cillia
– Gregor de Cillia, Commented Apr 10, 2018 at 21:19

Chris Farr · Accepted Answer · 2018-04-10 16:50:44Z

1

You might like the ShinyBS package. I've used it for alerts when loading data before and it works great (it also looks fancy).

Here's an example of my usage....

This was the code used to create the alert, it's fairly simple. The user can exit it or you can call to delete as detailed below.

Server:

createAlert(session, 'upload_complete',title = 'Data Import Complete', content = 'You may continue to the other tabs', alertId = 'alert_delete', append = FALSE)

UI:

mainPanel(
....
bsAlert('upload_complete'),
)

Call to delete (in server)

closeAlert(session,'alert_delete')

edited Apr 10, 2018 at 16:50

answered Apr 10, 2018 at 16:42

Chris Farr

3,7991 gold badge24 silver badges24 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Suraj Rao · Accepted Answer · 2022-04-22 13:37:47Z

1

I suggest to use library(shinycssloaders).

is very simple and professional.

library(shinycssloaders)
options like eg: options(spinner.color="#0275D8", spinner.color.background="#ffffff", spinner.size=.5)
add the loader with withSpinner(Output method(objectname), type = 1-8)

https://www.listendata.com/2019/07/add-loader-for-shiny-r.html

edited Apr 22, 2022 at 13:37

Suraj Rao

29.7k11 gold badges96 silver badges104 bronze badges

answered Apr 22, 2022 at 13:21

Ernesto Lugo

593 bronze badges

Comments

anon · Accepted Answer · 2018-04-10 20:46:36Z

0

would it be acceptable to show a progress bar while the additional data is loading? Shiny RStudio show an example for displaying a plot - http://shiny.rstudio.com/gallery/progress-bar-example.html

answered Apr 10, 2018 at 20:46

anon

Collectives™ on Stack Overflow

Show a message instead of/within plot while data is loading in R Shiny

3 Answers 3

Comments

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related