在每个服务的代码周围加上引号的快速方法

Question

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

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

返回错误

  

“错误：意外的数字常量”

我知道我需要将其用引号引起来，但是有很多代码。 有快速的方法吗？

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"