使用flextable compose添加条件图标，flextable_to_rmd导出异常求助

问题原因 #

你重复调用compose的写法，在生成PDF（基于LaTeX）时触发了R的延迟绑定特性：HTML渲染会即时处理每个compose调用并求值变量，但flextable_to_rmd生成LaTeX代码时，不会即时解析as_image引用的变量，直到最终生成PDF时才读取变量值，此时所有条件分支的变量引用都会指向最后一次赋值的img.file_R，导致所有行错误显示红色图标。

另外注意你的代码存在笔误：第一个compose中eye_color == "blue"对应了黄色图标img.file_Y，后续正确写法中已修正为对应蓝色图标路径。

正确写法 #

方法1：单次compose结合条件判断 #

用嵌套ifelse在单个compose调用中完成所有条件匹配，避免多次调用带来的延迟绑定问题：

demo <- flextable(head(starwars), col_keys = c("name", "eye_color")) %>%
  theme_booktabs() %>%
  compose(
    j = "eye_color",
    value = as_paragraph(
      as_image(
        src = ifelse(eye_color == "blue", img.file_B, 
                    ifelse(eye_color == "yellow", img.file_G, 
                           ifelse(eye_color == "red", img.file_R, NA))),
        width = .15, height = .15
      )
    )
  )

方法2：用local()强制即时求值 #

如果要保留多次compose的写法，用local()包裹每个value内容，强制R即时解析变量：

demo <- flextable(head(starwars), col_keys = c("name", "eye_color")) %>%
  theme_booktabs() %>%
  compose(
    j = "eye_color",
    i = ~ eye_color == "blue",
    value = local({
      img <- img.file_B
      as_paragraph(as_image(img, width = .15, height = .15))
    })
  ) %>%
  compose(
    j = "eye_color",
    i = ~ eye_color == "yellow",
    value = local({
      img <- img.file_G
      as_paragraph(as_image(img, width = .15, height = .15))
    })
  ) %>%
  compose(
    j = "eye_color",
    i = ~ eye_color == "red",
    value = local({
      img <- img.file_R
      as_paragraph(as_image(img, width = .15, height = .15))
    })
  )

方法3：使用set_img函数（更简洁） #

flextable提供set_img专门处理图像赋值，天然适配条件设置场景，无需担心延迟绑定：

demo <- flextable(head(starwars), col_keys = c("name", "eye_color")) %>%
  theme_booktabs() %>%
  set_img(
    j = "eye_color",
    i = ~ eye_color == "blue",
    src = img.file_B, width = .15, height = .15
  ) %>%
  set_img(
    j = "eye_color",
    i = ~ eye_color == "yellow",
    src = img.file_G, width = .15, height = .15
  ) %>%
  set_img(
    j = "eye_color",
    i = ~ eye_color == "red",
    src = img.file_R, width = .15, height = .15
  )

为什么flextable_to_rmd会出现这个交互问题？ #

HTML渲染流程中，flextable会即时将每个compose的内容转换为DOM元素，变量会被立即求值并固定；但flextable_to_rmd是生成LaTeX代码片段，这个过程中R的闭包特性会让as_image的变量引用暂不解析，直到最终编译PDF时才读取变量值，此时所有分支的引用都指向最后一次赋值的变量，导致图标显示异常。

内容的提问来源于stack exchange，提问作者R_newbie2022