保存来自闪亮警报的变量输出

Question

我想保存闪亮警告 (https://github.com/daattali/shinyalert) 的输出结果 (TRUE/FALSE)。这篇文章有助于将值打印到控制台 (How to capture shinyalert input field as variable)，但我无法将值本身保存为变量。

library(shiny)
library(shinyalert)

ui <- fluidPage(
  useShinyalert()
)


server <- function(input, output) {

  shinyalert(
    title = "Warning",
    text = "Some warning",
    closeOnEsc = FALSE,
    closeOnClickOutside = FALSE,
    type = "warning",
    showConfirmButton = TRUE,
    showCancelButton = TRUE,
    confirmButtonText = "OK",
    cancelButtonText = "Cancel",
    animation = TRUE,
    callbackR = mycallback
  )


}


shinyApp(ui, server)

这将自动打印到控制台闪亮警报的值。将 shinyalert 设置为变量或函数中的值似乎没有任何作用：

  mycallback <- function(value) {
    test_var=value
  }

Answer 1

在这种情况下忘记该函数，只需使用 observeEvent 观察警报，因为可以通过 input$shinyalert 访问回调值。

alert<-shinyalert(
title = "Warning",
text = "Some warning",
closeOnEsc = FALSE,
closeOnClickOutside = FALSE,
type = "warning",
showConfirmButton = TRUE,
showCancelButton = TRUE,
confirmButtonText = "OK",
cancelButtonText = "Cancel",
animation = TRUE,
callbackR = NULL
)

observeEvent(input$shinyalert,
value<<-input$shinyalert
)

注意：我已将 value 变量分配为全局变量，请确保您真正分配它。

编辑： 这似乎只在应用程序关闭时分配值，因为服务器没有发生任何其他事情。为了弥补这一点，我添加了一个用于测试目的的按钮，因为一旦另一个命令在服务器上通过，就会分配该值。

observeEvent(input$test,
print(value)
)

编辑： 如果我们想在后续语句中使用该值而不首先在服务器中执行任何其他操作，我们将不得不使用 callbackR 函数。

mycallback<-function(value){
if(value==T){
  print(value) #commands
} else if (value==F){
  print(value) #commands
}
}

注意：这个包还是比较新的并且有很多错误，例如，如果你尝试将这些模态链接在一起，就像包的作者声称这个包可以做的那样，它就不起作用。

shinyalert(
title = "What is your name?", type = "input",
callbackR = function(value) { shinyalert(paste("Welcome", value)) }
)

这里是作者描述的链接。 https://deanattali.com/blog/shinyalert-package/

如此处所述...https://github.com/daattali/shinyalert/issues/14 如果您从 github 安装最新版本，许多这些错误将得到修复。查看与此软件包相关的已报告错误，我们并不是唯一遇到此问题的人。