如何创建正确的路径以在gt表中创建图像

Question

我想在gt R包创建的表中包含国家标志的图像

library(tibble)
library(gt)

df <- tibble(country = c("Italy","Wales"), 
             flag = c("images/flags/Italy.png","images/flags/Wales.png")
             )

# example with hardcoded country
df %>% 
  gt() %>%
  text_transform(
    locations = cells_body(vars(flag)),
    fn = function(x) {
      country = "Wales"
      local_image(
        filename = paste0("images/flags/",country,".png")
    )
    }
  )

将国家/地区硬编码为该代码会产生输出-但显然无论国家/地区列的值如何，总是重复相同的标志

因此，我正在寻找使用对同一行的vars（country）的引用替换“ Wales”的正确方法

TIA

Answer 1

[抱歉，我没有收到您的问题，因为您似乎已经在数据框中添加了路径？但是，以下内容如何

BASE.PATH <- "images/flags/"
IMG.TYPE <- ".png"


df <- data.frame(
  country = c("Italy","Wales"))


create.path <- function(row) {
  path <- paste(BASE.PATH, row["country"], IMG.TYPE, sep = "")
  return(path)
}

df$image.path <- apply(df, 1, create.path)


load.country.image <- function(row) {
  my.image <- my.load.logic(row["image.path"])
  return(my.image)
}

df$image <- apply(df, 1, load.country.image)