Question

我有一个闪亮的应用程序，具有更长的计算，具体取决于输入。我想知道是否可以在计算完成时（而不是之前）在主面板中显示文本。

让我们举一个简单的例子。我用Sys.sleep()模拟了较长的计算：

# Define UI for application that draws a histogram

ui <- shinyUI(fluidPage(

# Application title
   titlePanel("Old Faithful Geyser Data"),

# Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30)
      ),

      # Show a plot of the generated distribution
      mainPanel(
        h3('This is an example'),
         plotOutput("distPlot")
      )
   )
))

# Define server logic required to draw a histogram
server <- shinyServer(function(input, output) {

   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[, 2] 
      bins <- seq(min(x), max(x), length.out = input$bins + 1)

      # draw the histogram with the specified number of bins
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
      Sys.sleep(5)
   })
})

# Run the application 
shinyApp(ui = ui, server = server)

目标是，显示文字＆＃39;这是一个例子＆＃39;同时计算完成而不是之前。我想我必须让文本以某种方式反应，但到目前为止我还没有找到解决方案。也许conditionalPanel可以做到，但我如何才能将计算时间带入条件？有什么想法吗？

Answer 1

这会是您搜索的内容吗？在观察distPlot事件后，您的文本变量为反应性

subcategories

在计算时间内R闪亮隐藏mainPanel对象

1 个答案: