在闪亮的web应用程序中按预先指定的时间量输出文本（R）

我的server.R文件中有如下输出：

output$thankYouText <- renderText({

    totalActionCount <- as.numeric(input$yes + input$no)

    if (totalActionCount > 0) {

    paste("Thank you. Please see next recommendation.")

            }


  })

---

output$thankYouText正如@GSee所指出的，您可以使用
invalidateLater
来完成这一任务

library(shiny)
runApp(list(
  ui = bootstrapPage(
    actionButton("yes", "YES!", icon = icon("thumbs-o-down")),
    actionButton("no", "NO!", icon = icon("thumbs-o-up")),
    textOutput('text')
  ),
  server = function(input, output, session) {
    values <- reactiveValues(tac = 0)
    output$text <- renderText({
      totalActionCount <- as.numeric(input$yes + input$no)
      if (totalActionCount > 0) {
        if(isolate(values$tac < totalActionCount)){
          isolate(values$tac <- totalActionCount)
          invalidateLater(2000, session)
          return(paste("Thank you. Please see next recommendation."))
        }else{
        }
      }
    })
  }
))

库（闪亮）
runApp（列表(
ui=引导(
动作按钮（“是”，“是！”，图标=图标（“拇指朝下”），
操作按钮（“否”，“否！”，图标=图标（“竖起大拇指”），
text输出（'text'）
),
服务器=功能（输入、输出、会话）{
值也许你可以设置
totalActionCount谢谢你的想法…这不起作用。我正在尝试其他的方法，但还不确定。