Question

我需要在R中执行以下操作：

1）动态地（对于......中的X图像）创建一个表格/网格，我在其中显示它们，例如在4xN表格中。

2）使每个图像都可以点击，以便将其名称输入到R中的函数中。例如，如果我们点击一只猴子，它应该调用一个函数：selected（monkey.jpg）。

Answer 1

感觉像作弊但使用小JS是最简单的方法。

在你的ui.R中，把它放在某个地方（比如你的主面板或其他）：

uiOutput("imageGrid"),
tags$script(HTML(
  "$(document).on('click', '.clickimg', function() {",
  "  Shiny.onInputChange('clickimg', $(this).data('value'));",
  "};"
))

在您的服务器功能中：

output$imageGrid <- renderUI({
  fluidRow(
    lapply(images, function(img) {
      column(3, 
        tags$img(src=paste0("images/", img), class="clickimg", data-value=img)
      )
    })
  )
})

然后在您的服务器功能中，您可以访问input$clickimg以确定最后点击的图像。请记住，这将是一个反应值（就像任何其他输入一样），因此您必须从反应式表达式或输出渲染函数（或观察者，如果您是一个更高级的Shiny用户）访问它。哦，初始值为NULL所以不要忘记检查它。

在Shiny R中生成表格和可点击图像

1 个答案: