R语言如何为括号内以逗号分隔的字符串添加引号？

问题原因 #

• scan默认以所有空白字符作为分隔符，会将带空格的职位名称拆分为多个独立片段
• 未处理输入字符串首尾的方括号，也没有指定用逗号作为列表项的分隔符

修正代码 #

input_text <- "[innovation manager, manager director, senior manager]"

# 移除首尾方括号
processed_text <- gsub(pattern = "^\\[|\\]$", replacement = "", x = input_text)
# 指定逗号为分隔符读取，自动去除每个项前后的空白字符
item_list <- scan(text = processed_text, what = character(), sep = ",", strip.white = TRUE)
# 拼接为目标格式
result <- paste0('["', paste(item_list, collapse = '", "'), '"]')

# 打印输出验证
cat(result)

运行上述代码会直接输出你需要的结果：
["innovation manager", "manager director", "senior manager"]

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