R 闪亮的应用程序，允许用户在网格中单击多个图像并捕获单击的值

我想创建一个闪亮的应用程序，向用户显示几个人的图像（在网格中），然后用户将单击显示同一个人的所有图像（一种手动面部识别）。我需要访问这些单击的值

我们的想法是使用类似于此的图像选择器： （请参见“选择多个”部分）

---

这在闪亮中是可能的吗？我发现的唯一方法是将图像嵌入到DT:：datatable对象中，然后通过单击来选择行，但在这种情况下，每行只有一个图像（我更喜欢图像网格）。

您可以使用

actionButton

并在标签中包含带有

标记$image

的图像。它可能看起来像这样

ui <- fluidPage(
  title = "Examples of DataTables",
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      actionButton(
        "cat",
        label = tags$image(src="https://i.ytimg.com/vi/KR9kjuuxRO0/maxresdefault.jpg")
      ),
      textOutput(
        outputId = "result"
      )
    )
  )
)

server <- function(input, output) {
  
  # choose columns to display
  output$result <- renderText(
    paste("cat has been clicked", input$cat, "number of times")
  )
  
  
}

shinyApp(ui, server)

ui