将值传递给str_replace_all函数

Question

您好，我正在使用字符串打包程序中的函数str_replace_all（）。

wordHighlight <- function(SuspWord,colH ="yellow") {
    paste0('<span style="background-color:',colH ,'">',SuspWord,'</span>')
  }

text_corpus %>% str_replace_all(regex_string, wordHighlight)

该函数运行良好，并将函数 wordHighlight 应用于 text_corpus 中与 regex_string 相匹配的每个元素。

我正在寻找的是一种在 wordHighlight 中更改参数 colH 的方法。 我该如何通过？