на строке двойной щелчок Изображение всплывает в datatable в R Shiny

Question

Я ищу, чтобы изображение появилось в строке двойной щелчок в таблице данных. В текущем коде, который я написал, отображается предупреждающее сообщение при двойном щелчке по строке. Я хотел бы заменить это сообщение с изображением. Предложения по достижению того же.

Код

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

Б «SweetAlert» вместо традиционных JS оповещения всплывающие окна, чтобы добавить изображение в таблицу данных строк щелчком мыши.

EDIT:

Пожалуйста, загрузите плагин Сладкие оповещения JS и CSS файл из этого ссылка- https://github.com/t4t5/sweetalert и поместите два файла в папке WWW. Расположение файла - sweetalert-мастер \ расстояние

Вот окончательный код:

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

ui <- shinyUI(

dashboardPage (
dashboardHeader(title="Report"), 
dashboardSidebar(sidebarMenu(menuItem("Table",tabName="Table"))), 
dashboardBody(
    # JS Script and CSS for SweetAlert Plugin 
    tags$head(HTML("<script type='text/javascript' src='sweetalert.min.js'> </script>")), 
    tags$head(
     tags$link(rel = "stylesheet", type = "text/css", href = "sweetalert.css") 
    ), 
    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(); 
      swal({ 
      title: "Sweet!", 
      text: "Here a custom image.", 
      imageUrl: "http://wallpaper-gallery.net/images/high-resolution- image/high-resolution-image-2.jpg", 
      imageSize: "400x300" 
      }); 
} 
) 
    ')) 
}) 
}) 

shinyApp(ui,server)