手动关闭通知后，R的闪亮通知行为

如何解决手动关闭通知后，R的闪亮通知行为

在示例here中，如果我通过单击通知框中的“ x”来关闭通知，或者等待六秒钟使其自行消失，然后再次单击“显示”按钮，则通知没有出现。

我需要单击运行removeNotification(id)的“删除”按钮，以使通知按钮再次出现。

如何获得以下行为：

1. 该通知出现并且被手动取消或消失后，单击“显示”将使其重新出现。

AND

1. 快速单击“显示”只会产生一条通知消息。

shinyApp(
  ui = fluidPage(
    actionButton("show","Show"),actionButton("remove","Remove")
  ),server = function(input,output) {
    # A notification ID
    id <- NULL
    
    observeEvent(input$show,{
      # If there's currently a notification,don't add another
      if (!is.null(id))
        return()
      # Save the ID for removal later
      id <<- showNotification(paste("Notification message"),duration = 6)
    })
    
    observeEvent(input$remove,{
      if (!is.null(id))
        removeNotification(id)
      id <<- NULL
    })
  }
)