为每个服务的代码加上引号的快速方法

Question

我有个小问题。当我尝试创建变量时

my_var <- c(17.1, 17.10.1, 17.11, 17.12, 17.13)

它returns一个错误

'Error: unexpected numeric constant'

我知道我需要把它放在引号里，但是代码很多。有快速的方法吗？

Answer 1

复制数字并在开头和结尾加上引号

"17.1, 17.10.1, 17.11, 17.12, 17.13"

然后以逗号分隔并删除空格

my_var1 <- trimws(strsplit("17.1, 17.10.1, 17.11, 17.12, 17.13", ",")[[1]])
my_var1
#[1] "17.1"    "17.10.1" "17.11"   "17.12"   "17.13"

如果您手动应用引号，这将产生相同的输出

my_var <- c("17.1", "17.10.1", "17.11", "17.12", "17.13")
identical(my_var, my_var1)
#[1] TRUE

Answer 2

我们可以使用scan来做到这一点

scan(text = str1, what ="", sep = ",", quiet = TRUE, strip.white = TRUE)
#[1] "17.1"    "17.10.1" "17.11"   "17.12"   "17.13"

str1 <- "17.1, 17.10.1, 17.11, 17.12, 17.13"

quick way to put quotes around each service's code