闪亮：在第一次初始化应用程序与第二次启动时，observEevent和removeNotification出现问题

Question

我有一个返回警告的函数，通知用户如何处理他们的数据，现在我已将此函数放置在闪亮的应用程序中，并通过tryCath.WE()和showNotification()成功在闪亮的应用程序中显示了此警告。 我的server.R文件中执行此操作的代码如下所示：

  set.exposure <- eventReactive(input$set.exposure.button,{
    x <- simsalapar::tryCatch.W.E(my.function(arguments,...)) 
    if (inherits(x$value, "simpleError") & inherits(x$warning, "simpleWarning")) {
      mess.error <- x$value$message
      mess.warning <- x$warning$message
      showNotification(mess.error,duration=NULL,id="exposureEW",type="error")
      showNotification(mess.warning,duration=NULL,id="exposureWE",type="warning")
      rv$exposure.button.disabled <- FALSE
    }
    else if(inherits(x$value, "simpleError")){
      mess.error <- x$value$message
      showNotification(mess.error,duration=NULL,id="exposureError",type="error")
      rv$exposure.button.disabled <- FALSE
    }
    else if(inherits(x$warning, "simpleWarning")){
      mess.warning <- x$warning$message
      showNotification(mess.warning,duration=NULL,id="exposureWarning",type="warning")
      return(x$value)
    }
    return(x$value)
  })

如果遵循最后的else if()语句， tryCatch.WE()检测到警告，并将通过showNotification()显示该警告，并通过return(x$value) my.function()的输出。

一旦用户选择了操作按钮input$set.exposure.button ，所有这些都会发生，如在input$set.exposure.button圆圈中下面的第一个图像中所示。 即使用户在my.function()输入中选择了提示错误的内容，也会始终显示此警告消息。 您可以通过观察我的第一个if()语句并观察第二个图像来确认这一点。 （您可以看到我翻转了“开始日期”和“结束日期”的值，然后通过选择“设置曝光”按钮来执行input$set.exposure.button ）

从用户友好的角度来看，理想情况下，我希望能够在两个图像之间切换（即“开始日期”和“结束日期”的切换值并选择“设置曝光”），并且不堆积通知。 请注意，我有showNotification(...,duration=NULLL)因此用户可以随时阅读所有警告和/或错误消息。 如果用户在选择的内容上有误，我希望他们能够做出正确的选择，使旧的通知消失，并出现新的通知，无论他们的新选择是否提示另一个错误和/或警告消息。 因此，我决定实施以下代码：

  observeEvent(input$set.exposure.button, {
    removeNotification("exposureEW")
    removeNotification("exposureWE")
    removeNotification("exposureWarning")
    removeNotification("exposureError")
  })

现在，此代码可以按预期工作（即，用户可以在下面的两个图像中的操作之间切换，并根据选择的内容以及在选择“设置曝光度”后使旧的通知消失而出现新的通知）； 但是，仅当我在同一Rstudio会话中第二次运行该应用程序时，它才能按预期工作

我注意到，我第一次打开Rstudio并运行该应用程序（或退出当前的R会话并开始一个新的会话）并在两个图像中实施操作时，通知完全同时出现和消失。

这引起了一个担忧，因为用户无需再次启动该应用程序即可正常运行。 本质上，我有一个应用程序在首次启动时与第二次启动时的行为有所不同。

我以为这是observeEvent()的ignoreNULL和ignoreInit参数的问题，但事实并非如此，因为我尝试了每种可能的TRUE / FALSE组合，但仍然让应用程序按其方式运行。

有没有人遇到过这样的问题或对如何纠正此问题有建议？

同时，我将努力提供一个小巧且可复制的应用示例。