如何将闪亮警报输入字段捕获为变量

Question

我正在尝试使用相对较新的 shinyAlert 包来查看它是否提供比 sweetalert 包更好的结果，但我无法弄清楚如何得到这个：

Myvar <-  shinyalert input text 

来自这个最小的例子。

library(shiny)
library(shinyjs)
library(shinyalert)

ui <- fluidPage(
  shinyjs::useShinyjs(),
  useShinyalert(),
     actionButton("run", "Run", class = "btn-success")
)
server <- function(input, output, session) {
  shinyEnv <- environment()

  observeEvent(input$run, {

    shinyalert('hello', type='input')
  })
}
shinyApp(ui = ui, server = server)

感谢各位天才的帮助。

Answer 1

这是你的做法：

library(shiny)
library(shinyalert)

ui <- fluidPage(
  useShinyalert(),
  actionButton("run", "Run", class = "btn-success")
)
server <- function(input, output, session) {

  observeEvent(input$run, {
    shinyalert('hello', type='input', callbackR = mycallback)
  })

  mycallback <- function(value) {
    cat(value)
  }
}
shinyApp(ui = ui, server = server)

这是使用回调完成的。如果您愿意，可以将值分配给反应变量。

上个月我已经完整记录了这个包，正准备发布它，然后我的电脑在我有机会推送到 github 之前就崩溃了，并且失去了所有进展。我再也没有机会继续工作了。很抱歉文档还不是很好，该软件包仍未发布，因此暂时使用风险自负:)

（请注意，您不需要为此使用 shinyjs）

Answer 2

我没有使用 Shinyalert 包的经验，但是您可以使用来自 shiny 的广泛使用且记录良好的模态对话框来实现您想要的。也许你有理由坚持使用我不知道的shinyalert，但如果没有，使用模态对话框实现你想要的示例代码：

ui <- fluidPage(
  shinyjs::useShinyjs(),
  actionButton("run", "Run", class = "btn-success"),
  textOutput("output1")
)
server <- function(input, output, session) {

  dataModal <- function(failed = FALSE) {
    modalDialog(
      textInput("input1", "Enter text:",
                placeholder = 'Enter text here'
      )
    )
  }

  # Show modal when button is clicked.
  observeEvent(input$run, {
    showModal(dataModal())
  })

  output$output1 <- renderText({
    input$input1
  })
}
shinyApp(ui = ui, server = server)

如果这有帮助，请告诉我！