在我的Shiny应用程序中，我希望单击操作按钮后在UI中显示一些文本，然后几秒钟后该文本应会再次消失。我怎样才能做到这一点？我尝试使用InvalidateLater，Sys.sleep（）和ConditionalPanel，但未成功。 下面是一个简单的例子。单击后显示时间。我希望时间在几秒钟后消失。如果再次单击，则必须出现一个新时间。 我该怎么办？

ui <- fluidPage(
  actionButton("btn","Click to show current time"),textOutput("temp_text")
)

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

  # make text with time stamp after click  
  observeEvent(input$btn,{
    output$temp_text <- renderText({
      paste0("The time is: ",strftime(Sys.time(),format = "%H:%M:%S"))
    })

  })

}

shinyApp(ui,server)