Question

I would like to open a context menu, when right clicking on a row of a datatable. The context menu would then propose to the user the option of opening a file whose path is stored in the corresponding row of the datatable, here in the column Path. How can I achieve that ? Below a simple example:


library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("myTable")
)

server <- function(input, output, session) {
  data <- data.frame(
    Name = c("File1", "File2", "File3"),
    Path = c("C:/Path/File1.txt", "C:/Path/File2.txt", "C:/Path/File3.txt")
  )
  
  output$myTable <- renderDT({
    datatable(data, escape = FALSE)
  })

}

shinyApp(ui, server)

Answer 1

这里是利用 Java本图书馆j QueryContextMenu的一种方式。

library(shiny)
library(DT)
library(pander) # to use openFileInOS()

ui <- fluidPage(
  tags$head(
    tags$link(rel="stylesheet", href="https://cdnjs.cloudflare.com/ajax/libs/jquery-contextmenu/2.9.2/jquery.contextMenu.min.css"),
    tags$script(src="https://cdnjs.cloudflare.com/ajax/libs/jquery-contextmenu/2.9.2/jquery.contextMenu.min.js"),
    tags$script(src="https://cdnjs.cloudflare.com/ajax/libs/jquery-contextmenu/2.9.2/jquery.ui.position.js")
  ),
  br(),
  DTOutput("dtable")
)

dat <- data.frame(
  XXXXX = c("hello", "morning"),
  files = c("C:/SL/test1.txt", "C:/SL/test2.txt") 
)

callback <- c(
  "$.contextMenu({",
  "  selector:  #dtable tr ,", 
  "  trigger:  right ,",
  "  autoHide: true,",
  "  items: {",
  "    open: {",
  "      name:  Open file ,", 
  "      callback: function(itemKey, opts, e){",
  "        let i = $(this).index() + 1;",
  "        Shiny.setInputValue( index , i, {priority:  event });",
  "      }",
  "    }",
  "  }",
  "});"
)

server <- function(input, output, session) {
  
  output[["dtable"]] <- renderDT({
    datatable(
      dat,
      selection = "none",
      callback = JS(callback)
    )
  })
  
  observeEvent(input[["index"]], {
    file <- dat[["files"]][input[["index"]]]
    openFileInOS(file)
  })
  
}

shinyApp(ui, server)

友情链接