在R中搜索字典术语的第一个匹配文本

library(stringr)

dictionary <- c("云计算", "IT互联网", "前端开发", "后端开发", "软件测试", "数据库", "服务器运维", "云原生", "网络通信", "网络安全", "音视频", "多媒体处理", "人工智能", "物联网", "移动开发", "存储", "区块链", "元宇宙")

search_dictionary <- function(text, dictionary) {
  match <- str_extract(text, paste(dictionary, collapse = "|"))
  return(match)
}

text <- "云计算是一种基于互联网的计算方式，可以通过网络提供各种计算资源和服务。"
match_text <- search_dictionary(text, dictionary)

print(match_text)

[1] "云计算"