манипулируют строки R для получения конкретных результатов

Question

У меня есть векторы символов, как этот

sol=c("119","911","*","ab","ba","*","*","abcd","bcda","abcd","cdab","abcd","dabc","*","*","*","*") 

Я хочу взять вектор в то время, и производить вывод, как показано ниже.

Каков самый быстрый способ сделать то же самое? В принципе, я хочу начать новую строку там, где есть *. Если есть последовательные *, то я хочу только одну новую строку. Последовательные не являющиеся * элементы должны быть напечатаны на новую строку и в случае последовательных, не являющихся * элементов, если есть повторяющаяся элемент, то он не должен получить печатную

119 911 
ab ba 
abcd bcda cdab dabc 

Я имею в виду писать для цикла и печатей элементов, пока я не встречу *. Но не уверен, как обеспечить, чтобы как лечить подряд * для получения одной новой линии, а также не знаю, как удалить повторяющийся элемент из последовательного списка не являющихся * элементов

Answer 1

Вот попытка, основанная на cumsum -ную случаи, которые соответствуют *:

lapply(split(sol[sol!="*"],cumsum(sol=="*")[sol!="*"]),unique) 
#$`0` 
#[1] "119" "911" 
# 
#$`1` 
#[1] "ab" "ba" 
# 
#$`3` 
#[1] "abcd" "bcda" "cdab" "dabc" 

Вы могли бы написать это в текстовый файл с помощью: R: Print list to a text file

Answer 2

Вы можете попробовать ниже,

> print(gsub("(?:\\s*\\*)+\\s*", "\\\n", paste(sol, collapse=" "))) 
[1] "119 911\nab ba\nabcd bcda abcd cdab abcd dabc\n"