在 R Shiny 中使用 SweetAlert2

Question

我正在尝试使用 SweetAlert2 弹出窗口而不是传统的 JS 弹出窗口。期待一个例子来实现，因为我是 JS 概念的新手。访问-https://sweetalert2.github.io/ 在实际场景中，我想在双击数据 Table 行时使用这些 SweetAlert2 而不是 JS 警报。

带有 JS 弹出窗口的代码：

library(shiny)
library(shinydashboard)
library(DT)

ui <- shinyUI(

dashboardPage (
    dashboardHeader(title="Report"),
    dashboardSidebar(sidebarMenu(menuItem("Table",tabName="Table"))),
    dashboardBody(      
        tabItems(
        tabItem(tabName = "Table",
            DT::dataTableOutput("DataTable")    
        )
   ))

))

server <- shinyServer(function(input, output) {
     output$DataTable <- DT::renderDataTable({
          datatable(iris,rownames=FALSE,selection = 'single',
                    options = list(
                              searching = FALSE,ordering=FALSE,
                              dom = 'Bfrtip',
                              buttons = c('copy','excel', 'pdf', 'print', 'colvis'),
                              columnDefs = list(list(visible=FALSE, targets=c(2))
          ),
     rowCallback = JS(
          "function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {",
          "var full_text = aData[2]",
          # Tooltip for the rows
          "$('td:eq(1)', nRow).attr('title', full_text);",
          # Showing a hand as a cursor
          "$('td:eq(1)', nRow).css('cursor','pointer');",
          "$('td:eq(1)', nRow).css('font-weight','bold');",
          "}")
      ),
      #On double Click show Alert Message
     callback = JS('
          table.on("dblclick.dt","tr", function() {
          var data=table.row(this).data();
          alert("You clicked on "+data[4]+"\'s row");})
          '))
})
})

shinyApp(ui,server)

Answer 1

我不熟悉那个 JS 库，反正我觉得应该可以。

ui.R

首先你必须将 js 脚本添加到你的页面（注意路径，它应该是 CDN 或 /www/ 文件夹中的文件：

tags$head(HTML("<script type='text/javascript' src='path/to/sweetAlert2.js'></script>"))

server.R

然后在回调中调用库函数：

callback = JS('
    table.on("dblclick.dt","tr", function() {
        var data=table.row(this).data();
        swal({
            title: "Click!",
            text: "You clicked on "+data[4]+"\'s row",
            type: "success",
            confirmButtonText: "Cool"
        })
    )')

希望对您有所帮助

在 R Shiny 中使用 SweetAlert2

Use SweetAlert2 in R Shiny

r

datatables

shiny

sweetalert

sweetalert2

ui.R

server.R