Как убрать все слова между слешами в R?

Question

У меня есть строка

x <- "('00111','22222', /*abd*/ '22343','24352' /*abdegsg*/)"

Я хочу удалить символы между слешами, как

('00111','22222', '22343','24352')

Answer 1

gsub вы можете выполнить следующим образом:

gsub (pattern = "/ [a-zA-Z] * /", "", x)

Answer 2

Мы можем попробовать использовать gregexpr для базового решения R:

x <- "('00111','22222', /*abd*/ '22343','24352' /*abdegsg*/)"
m <- gregexpr("'\\d+'", x)
regmatches(x, m)[[1]]

[1] "'00111'" "'22222'" "'22343'" "'24352'"

Answer 3

Вы можете использовать библиотеку stringr для извлечения всех чисел.

x <- "('00111','22222', /*abd*/ '22343','24352' /*abdegsg*/)"

stringr::str_extract_all(x, "\\d+", simplify = T)
#>      [,1]    [,2]    [,3]    [,4]   
#> [1,] "00111" "22222" "22343" "24352"

^{Создано в 2019-02-11 пакетом представительство (v0.2.1)}