R 如何关闭嵌入式modalDialog

我将modalDialog嵌入到其他

modalDialog

中。当我运行

modalButton

时，它们都关闭了。 如何仅关闭嵌入式

modalDialog

现在： 代码：

库（闪亮）
shinyApp(
ui我不确定你想在模态中显示什么，但也许你可以看看
sweetalertR
软件包：

 library(shiny)
library(sweetalertR)
shinyApp(
  ui <- fluidPage(
    sweetalert('#one',
      title = "Are you sure?",
      text = "Press here for some magic",
      type = "warning",
      showCancelButton = TRUE,
      confirmButtonColor = '#DD6B55',
      confirmButtonText = 'Yes, Confirm!',
      closeOnConfirm = FALSE,
      evalFunction = 'function(){swal("OKAY!", "Thank you PorkChop!", "success")}'
    ),
    actionButton("one","Press")  
  ),
  server <- function(input, output,session) { })

库（闪亮）
图书馆（sweetalertR）
shinyApp(
问题是一个新的模式对话框似乎取代了以前的对话框。因此没有“关闭第二个”事情。我想一个解决办法是，一旦第二个关闭，您立即重新创建第一个，因此用户几乎看不到trickNice的答案！我以前从未使用过
sweetalertR
软件包，它看起来非常好。
 library(shiny)
library(sweetalertR)
shinyApp(
  ui <- fluidPage(
    sweetalert('#one',
      title = "Are you sure?",
      text = "Press here for some magic",
      type = "warning",
      showCancelButton = TRUE,
      confirmButtonColor = '#DD6B55',
      confirmButtonText = 'Yes, Confirm!',
      closeOnConfirm = FALSE,
      evalFunction = 'function(){swal("OKAY!", "Thank you PorkChop!", "success")}'
    ),
    actionButton("one","Press")  
  ),
  server <- function(input, output,session) { })