Как удалить строки с исключениями в R?

Question

У меня есть строка. Я хочу (a) сохранить «/» в дроби, (b) вставить пробелы вокруг «/», которые находятся между словами, и (c) удалить все остальные «/».

s = "/// ///1/2 111/222 a/b abc/abc a/b/// ///" 

Результат должен быть следующим.

s = "1/2 111/222 a b abc abc a b" 

Я пробовал несколько вещей. Я не могу все исправить.

Answer 1

Я не эксперт по регулярному выражению, но это, похоже, работает на вашем примере.

s = "/// ///1/2 111/222 a/b abc/abc a/b/// ///" 

i <- gsub("/{2,}|/\\s", "", s) 
i <- trimws(gsub("([[:alpha:]]{1,})(/)([[:alpha:]]{1,})", "\\1 \\3", i)) 
i <- gsub("\\s{2,}", " ", i) 

identical(i, "1/2 111/222 a b abc abc a b") 

[1] TRUE