如何在dplyr的mutate函数中使用shiny tag生成对应HTML内容？

问题根因 #

你遇到的报错是因为shiny::span()不是向量化函数，单次调用仅能生成单个shiny.tag对象，无法直接返回与输入列等长的向量，不符合dplyr::mutate的输入输出长度匹配要求。

解决方案 #

方案1：按行处理（适合需要保留shiny tag完整功能的场景，比如添加class、style等属性）

library(dplyr)
library(shiny)

asd <- data.frame(a = c("A","B"))
asd <- asd %>% 
  rowwise() %>% # 按行逐行处理
  mutate(new = as.character(span(a))) %>% 
  ungroup() # 处理完成后取消行化，避免影响后续数据操作

如果需要给span加属性，直接在span函数里加参数即可，比如span(a, class = "text-primary", style = "color:red;")，会自动生成带对应属性的标签字符串，不用手动拼接避免出错。

方案2：迭代器处理（适合数据量较大的场景，效率更高）

library(dplyr)
library(purrr)
library(shiny)

asd <- data.frame(a = c("A","B"))
asd <- asd %>% 
  mutate(new = map_chr(a, ~as.character(span(.x))))

方案3：直接拼接字符串（最简单轻量化，仅需要基础包裹标签的场景首选）

不需要依赖shiny包，直接用字符串拼接即可实现需求：

library(dplyr)

asd <- data.frame(a = c("A","B"))
asd <- asd %>% 
  mutate(new = paste0("<span>", a, "</span>"))

以上三种方案运行后得到的结果都和你期望的输出完全一致。

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