loadingState() will not stop

[leungi]

Reproducible example below; read documentation, but can't find a way to turn off loadingState().

Expected: after 10 secs, spinner will fade away.

Outcome: plot renders after 10 secs, but spinner still shows

if (interactive()) {
  library(shiny)
  library(shinydashboard)
  library(shinydashboardPlus)
  shinyApp(
    ui = dashboardPage(
      dashboardHeader(),
      dashboardSidebar(),
      dashboardBody(
        box(
          title = "loading spinner",
          loadingState(),
          plotOutput("plot2")
        )
      ),
      title = "Loading State"
    ),
    server = function(input, output) {
      output$plot2 <- renderPlot({
        Sys.sleep(10)
        plot(iris)
      }) 
    }
  )
}

[DivadNojnarg]

This function is useless for some reasons:

• no javascript bindings
• there are better loaders (shinycssloaders, waiter, ...)

Expect this to be deleted in a near release

[leungi]

Noted; thanks.