r - 防止 withSpinner 默认出现

Question

我用来withSpinner()向用户指示正在进行计算。但是，我的应用程序没有默认输出，即用户必须单击一个按钮来计算输出。

withSpinner()自动出现在应用程序上。问题是，由于用户第一次必须单击按钮来显示输出，所以微调器具有误导性，因为用户可能认为正在进行计算，而实际上并没有。有没有办法防止微调器默认出现？

可重现的例子：

library(shiny)
library(shinycssloaders)

ui <- fluidPage(
  sliderInput("foo", "foo", 0, 10, 5),
  actionButton("button", "button"),
  textOutput("text") %>% 
    withSpinner()
)

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

  observeEvent(input$button, {

    output$text <- renderText({
      input$foo
    })

  })

}

shinyApp(ui, server)

当您运行应用程序并且什么都不做时，中心有微调器，而只要未单击按钮，它就不应该显示。

标签： rshiny