R- 빈 문자열 요소에 도달 할 때까지 문자 벡터의 연속 요소를 반복적으로 결합합니다.

Question

아래에 설명 된 것과 같이 긴 문자열 (영숫자 + 특수 문자)로 구성된 문자 벡터가 있습니다. 필요

txt <- c(
     "Spicy jalapeno bacon ipsum dolor amet", 
     "tenderloin. pariatur quis", 
     "", 
     "consequat pancetta jerky", 
     "porchetta non chuck exercitation", 
     "laborum labore ball tip.", 
     "", 
     "", 
     "Duis swine turkey kielbasa. Strip ", 
     "steak ribeye laboris," 
     ) 

출력

> txt 
[1] "Spicy jalapeno bacon ipsum dolor amet tenderloin. pariatur quis" 
[2] "consequat pancetta jerky porchetta non chuck exercitation laborum labore ball tip." 
[3] "Duis swine turkey kielbasa. Strip steak ribeye laboris," 

상황이 고려하는 것입니다 : linebreakers로
1. 빈 문자열 요소/s의 역할을합니다. 그것들은 연속적으로 하나 이상일 수 있습니다.
2. 두 요소를 결합 할 때 사이에 공간을 추가해야합니다. 이 작업을 수행하는 방법의 과다의

Answer 1

하나 :

library(dplyr) 
library(purrr) 

data_frame(txt=txt, grp=cumsum(txt=="")) %>% 
    group_by(grp) %>% 
    do(data_frame(joined=paste0(.$txt, collapse=" "))) %>% 
    mutate(joined=trimws(joined)) %>% 
    filter(joined != "") %>% 
    ungroup() %>% 
    select(joined) %>% 
    flatten_chr() 
## [1] "Spicy jalapeno bacon ipsum dolor amet tenderloin. pariatur quis"     
## [2] "consequat pancetta jerky porchetta non chuck exercitation laborum labore ball tip." 
## [3] "Duis swine turkey kielbasa. Strip steak ribeye laboris,"