R：将多个图像添加到DataFrame/DataTable中？

Question

我正在尝试将几个图像添加到r中的数据框架中，以在r Shiny中复制DT :: DatatableOutput。

所需的输出看起来像：

图标	食物
	葡萄
	Marrow

我抚养这个问题将图像添加到r 的数据词中，这使我可以添加我本地具有的图像，但是只有在路径中输入路径时

df <- read.csv("data.csv")

path = "/Users/name/Documents/remaining_path/"

df%<>%
  mutate(Icon = img_uri("/Users/name/Documents/remaining_path/grapes.png"))

，要添加的映像，所以我希望获得一些自动化的东西，例如：

df%<>%
  mutate(Image = paste(path, Food, ".png", sep = ""))%>%
  mutate(Icon = img_uri(Image))

这给了我这个错误

Error in `mutate()`:
! Problem while computing `Icon = img_uri(Image)`.
Caused by error in `file()`:
! invalid 'description' argument

，我也尝试创建一个带有for loop的向量：

for (i in df$Image) {
  
  Icon <- img_uri(i)
  
}

它会引发此错误

Error in file(con, "rb") : cannot open the connection

9. file(con, "rb")
8. readBin(file, what, n, ...)
7. read_bin(x)
6. base64_encode(x)
5. paste0("data:", mime::guess_type(x), ";base64,", base64_encode(x))
4. xfun::base64_uri(f)
3. knitr::image_uri(x)
2. sprintf("<img src=\"%s\"/>", knitr::image_uri(x))
1. img_uri(i)

并使用应用程序：

Icon <- apply(X = df$Image, MARGIN = 1, FUN = img_uri())

这给出了此错误，这

Error in knitr::image_uri(x) : argument "x" is missing, with no default

9. basename(file)
8. mime::guess_type(x)
7. paste0("data:", mime::guess_type(x), ";base64,", base64_encode(x))
6. xfun::base64_uri(f)
5. knitr::image_uri(x)
4. sprintf("<img src=\"%s\"/>", knitr::image_uri(x))
3. img_uri()
2. match.fun(FUN)
1. apply(X = df$Image, MARGIN = 1, FUN = img_uri())

将欣赏任何输入因此。

Answer 1

我会做：

library(DT)
library(base64enc)

imgs <- c("img1.png", "img2.png")
b64imgs <- vapply(imgs, function(img){
  dataURI(mime = "image/png", file = img)
}, character(1L))
b64array <- paste0(
  c("[", sprintf("%s", toString(paste0("'", b64imgs, "'"))), "]"), 
  collapse = ""
)

render <- c(
  "function(data, type, row){",
  "  if(type === 'display'){",
  sprintf("var img = %s[data-1];", b64array),
  "    data = '<img src=\"' + img + '\"  width=100>';",
  "  }",
  "  return data;",
  "}"
)

dat <- data.frame(
  image = c(1, 2), 
  file = imgs
)

datatable(
  dat, 
  width = 500,
  options = list(
    columnDefs = list(
      list(targets = 1, render = JS(render)),
      list(targets = "_all", className = "dt-center")
    )
  )
)