waiter functionality similar to withSpinner

[giadasp]

Dear waiter developers,
I find your package really awesome but I cannot figure out how I can reproduce the withSpinner function of the shinycssloader package.
I display output elements dinamically so I cannot use their ids to assign a waiter to them.
I tried to use autoWaiter() but it works only for output elements for which I call a renderPlot function.
It seems it does not work for generic output elements like outputUI.
I make an example:
Before, I created a div in this way:

tags$div(withSpinner(uiOutput("output_name")))

and when I call output$output_name <- renderUI(tags$div("hello"))

the spinner appears and it hides when the UI is rendered.

Since I want to use only your package for this kind of tasks, I'm asking you if there is a way to reproduce this behaviour.
Thanks.

Giada

[JohnCoene]

Let me explore how this functionality could be integrated with waiter. (sorry for the late response)

[JohnCoene]

I just added this to the dev version from Github: withWaiter

Reinstall the latest version

# install.packages("remotes")
remotes::install_github("JohnCoene/waiter")

Try

library(shiny)
library(waiter)

ui <- fluidPage(
  useWaiter(),
  actionButton("draw", "plot"),
  withWaiter(
    plotOutput("plot")
  )
)

server <- function(input, output, session){
  output$plot <- renderPlot({
    input$draw
    Sys.sleep(5)
    plot(cars)
  })
}

shinyApp(ui, server)

[JohnCoene]

I'm assuming this is sorted and closing, feel free to reopen if it is not

[giadasp]

When are you going to update the package on CRAN?

[JohnCoene]

The latest version 0.2.4 includes withWaiter. What are you after?

[apalacio9502]

Hi Jhon, the new functionality is very good. However it doesn't work for me for plotly or DT.

Here is an example with plotly.

`library(shiny)
library(waiter)

ui <- fluidPage(
useWaiter(),
actionButton("draw", "plot"),
withWaiter(
plotlyOutput("plot"))
)

server <- function(input, output, session){
output$plot <- renderPlotly({
input$draw
Sys.sleep(5)
x <- c(1:100)
random_y <- rnorm(100, mean = 0)
data <- data.frame(x, random_y)
plot_ly(data, x = ~x, y = ~random_y, type = 'scatter', mode = 'lines')
})
}

shinyApp(ui, server)`

[HugoGit39]

Does it already works with plotly? Cause I also can not get it to work