如何在 R shiny 中创建指向单元格值的超链接

Question

我有一个包含以下内容的数据框 data_input：

使用以下代码将数据帧加载到 R shiny 数据表中：

output$table <-
DT::renderDataTable(DT::datatable(data_input,
  options = list(
    searching = TRUE,
    pageLength = 10,
    rownames(NULL),
    scrollX = T,
   filter="top"
  )
))

我需要打开一个超链接。单击 "Feature" 列中的值后，Location 列的值应附加到 url 并指向相应的页面。例如，单击 X 后应指向 http://www.mywebsite.com;loc=1:02，其中 http://www.mywebsite.com;loc= 对所有值都是通用的 url。

有什么有效的方法吗？有类似的线程但是，解决方案并不具体。

Answer 1

这是一个方法。

library(DT)

render <- c(
  "function(data, type, row){",
  "  if(type === 'display'){",
  "    var a = '<a href=\"http://www.mywebsite.com?loc=' + row[2] + '\">' + data + '</a>';",
  "    return a;",
  "  } else {",
  "    return data;",
  "  }",
  "}"
)

data_input <- data.frame(
  List = c("A", "B", "C"), 
  Feature = c("X", "Y", "Z"),
  Location = c("1:02", "2:04", "5:10")
)

datatable(data_input, rownames = FALSE, 
          options = list(
            columnDefs = list(
              list(targets = 1, render = JS(render)),
              list(targets = "_all", className = "dt-center")
            )
          )
)

如何在 R shiny 中创建指向单元格值的超链接

How to Create hyperlink to cell value in R shiny

r

datatables

hyperlink

shiny

dt