小编use*_*763的帖子

我正在尝试使用相对较新的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)

感谢您的帮助。