在 Shiny 中使用 uiOutput 时 withSpinner 不重复显示

Question

请帮我在反应值出现时重复显示微调器（点击动作按钮时）

UI.R

library(shinycssloaders)
ui <- fluidPage(
  titlePanel("Hello Shiny!"),
  fluidRow(
    column(width = 2, actionButton("actButton", "Click")),
    column(width = 6, withSpinner(uiOutput("htmlExample")))
  )
)

服务器.R

library(shiny)
library(shinycssloaders)

server<-function(input, output)
{
  getRandomNumber <- function() {
    Sys.sleep(1)
    randamNumber <- runif(n = 1, min = 1e-12, max = .9999999999)
    return(HTML(paste0("<h1>Hai Render Html ................",
                       randamNumber, "<h1>")))
  }
  observeEvent(input$actButton,{
    if (input$actButton == 0)
      return(0)
    isolate({
      output$htmlExample <- renderUI({
        getRandomNumber()
      })
    })
  })
}

Answer 1

如何使用 busyIndicator 包中的 shinysky 代替。

这是一个示例代码：

library(shinysky)
library(shiny)

ui <- fluidPage(
  titlePanel("Hello Shiny!"),
  fluidRow(
    column(width = 2, actionButton("actButton", "Click")),
    busyIndicator(text = 'Rendering HTML....'),
    column(width = 6, uiOutput("htmlExample"))
  )
)

server<-function(input, output)
{
  getRandomNumber <- function() {
    Sys.sleep(2)
    randamNumber <- runif(n = 1, min = 1e-12, max = .9999999999)
    return(HTML(paste0("<h1>Hi Render Html ................",
                       randamNumber, "<h1>")))
  }
  observeEvent(input$actButton,{
    if (input$actButton == 0)
      return(0)
    isolate({
      output$htmlExample <- renderUI({
        getRandomNumber()
      })
    })
  })
}

shinyApp(ui, server)

希望对你有帮助！