在R中重置shinyalert的输入

它只会在我第一次单击时追加，因为在我点击OK后，

input$shinyalert

为

TRUE

。是否有办法重置shinyalert的输入，以便在我第二次/第三次按下操作按钮时重新触发我的观察。。会议中的时间

---

我试图将

NULL

/

FALSE

/

0

分配给

input$shinyalert

（

input$shinyalert您不能使用R回调函数，如下所示：

library(shiny)
library(shinyalert)

ui <- fluidPage(
  useShinyalert(),
  actionButton("btn", "Append row")
)

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

  appendTable <- function(){
    newrow <- data.frame(a = "fisrt",
                         b = "second",
                         c = "third")
    dbWriteTable(conn, "mytable", newrow, append = TRUE)
  }

  observeEvent(input[["btn"]], {
    shinyalert("", "Are you sure?", type = "warning", showCancelButton = TRUE, 
               callbackR = function(x){
                 if(x) appendTable()
               })
  })

}

shinyApp(ui, server)

您不能使用R回调函数，如下所示：

library(shiny)
library(shinyalert)

ui <- fluidPage(
  useShinyalert(),
  actionButton("btn", "Append row")
)

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

  appendTable <- function(){
    newrow <- data.frame(a = "fisrt",
                         b = "second",
                         c = "third")
    dbWriteTable(conn, "mytable", newrow, append = TRUE)
  }

  observeEvent(input[["btn"]], {
    shinyalert("", "Are you sure?", type = "warning", showCancelButton = TRUE, 
               callbackR = function(x){
                 if(x) appendTable()
               })
  })

}

shinyApp(ui, server)

我不是100%确定Sea的用例是什么，但从我的理解来看，我认为如果他使用github版本，这将很好（不是CRAN版本）我使用的是CRAN版本。上述两种方法都很好。我不是100%确定Sea的用例是什么，但从我的理解来看，我认为如果他使用github版本，这将很好（不是CRAN版本）我使用的是CRAN版本。上述两种方法都很好。您是否尝试过安装shinyalert form github的最新版本？如果没有完整的代码示例，我很难看到您认为有什么问题，但我认为非CRAN版本可以解决您的问题。如果没有，请编辑您的帖子，以包含完整闪亮appHav的代码您是否尝试安装了shinyalert form github的最新版本？如果没有完整的代码示例，我很难准确地看到您认为有什么问题，但我认为非CRAN版本可以解决您的问题。如果没有，请编辑您的帖子，以包含完整闪亮应用程序的代码