R gt表-从文本转换中排除NA值

在这里,我从细节中抽象出来,但展示了一种可以用来解决自己案件的方法。

library(purrr)
library(dplyr)

local_image <- function(f, h) {
  paste(f, h, sep = "_")
}

# spoil with an NA
x <- c(letters[1:3], NA)
# if else to dodge it from being in local_image
(step_1 <- map_chr(
  x,
  ~ if_else(!is.na(.x),
    local_image(
      f = paste0(.x, ".png"),
      h = 13
    ), NA
  )
))

# clear the NAs
(step_2 <- step_1[!is.na(step_1)])