быстрый способ поставить кавычки вокруг кода каждого сервиса

Question

У меня маленькая проблема. Когда я пытаюсь создать переменную

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

возвращает ошибку

'Ошибка: неожиданная числовая константа'

Я знаю, что мне нужно поместить это в кавычки, но кода много. Есть ли быстрый способ сделать это?

Answer 1

Мы можем использовать scan, чтобы сделать это

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

data

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

Answer 2

Скопируйте числа и добавьте кавычки в начале и конце

"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