r - 如何为括号内并以逗号分隔的字符添加引号？

Question

这个想法是为字符串列表表示中的所有字符串添加引号。

尝试了下一个:

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

scan(text=input_text, what="")

返回结果:

'[innovation" "manager,"    "manager"     "director,"   "senior"      "manager]'

预期输出可能如下所示:

'["innovation manager", "manager director", "senior manager"]'

我错过了什么？

Answer 1

可能的解决方案；

library(tidyverse)

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

input_text %>% 
  str_remove_all("\\[|\\]") %>% 
  str_split(", ") %>% unlist

#> [1] "innovation manager" "manager director"   "senior manager"

但是，如果 OP 希望结果为单个字符串，则可以使用以下内容:

input_text %>% 
  str_remove_all("\\[|\\]") %>% 
  str_split(", ") %>%
  map(~ str_c('"',.x, '"')) %>% unlist %>% 
  str_flatten(collapse = ", ") %>% 
  str_c("[",.,"]")

#> [1] "[\"innovation manager\", \"manager director\", \"senior manager\"]"