问根据定位不同的代码(带有标题)来纠正分散在多行中的字符串

EN

lines <- readr::read_lines("https://pastebin.com/raw/jSrvTa7G")
head(lines)
#> [1] ""                                                                                                        
#> [2] "ALBANIA"                                                                                                 
#> [3] "P1-Democratic Alliance Party (Partia Aleanca Democratike [AD])"                                          
#> [4] "P2-National Unity Party (Partia Uniteti Kombëtar [PUK])"                                                 
#> [5] "P3-Social Spectrum Parties-Party of National Unity (Partitë e Spektrit Social-Partia e Unitetit Kombëtar"
#> [6] "[PSHS-PUK])"

entries <- split(lines, cumsum(grepl("^$|^ $", lines)))

library(stringr)
library(dplyr)
df <- lapply(entries, function(entry) {
  entry <- entry[!grepl("^$|^ $", entry)] # remove empty elements
  header <- entry[1] # first non empty is the header
  entry <- tail(entry, -1)  # remove header from entry
  desc <- str_extract(entry, "^P\\d+-")  # extract description

  for (l in which(is.na(desc))) { # collapse lines that go over 2 elements
    entry[l - 1] <- paste(entry[l - 1], entry[l], sep = " ")
  }

  entry <- entry[!is.na(desc)]
  desc <- desc[!is.na(desc)]

  # turn into nice format
  df <- tibble::tibble(
    header,
    desc,
    entry
  )
  df$entry <- str_replace_all(df$entry, fixed(df$desc), "") # remove description from entry
  return(df)
}) %>% 
  bind_rows() # turn list into one data.frame

df
#> # A tibble: 5,525 x 3
#>    header  desc  entry                                                     
#>    <chr>   <chr> <chr>                                                     
#>  1 ALBANIA P1-   Democratic Alliance Party (Partia Aleanca Democratike [AD~
#>  2 ALBANIA P2-   National Unity Party (Partia Uniteti Kombëtar [PUK])      
#>  3 ALBANIA P3-   Social Spectrum Parties-Party of National Unity (Partitë ~
#>  4 ALBANIA P4-   Alliance Party for Solidarity and Welfare (Partia Aleanca~
#>  5 ALBANIA P5-   Albanian Democratic Union-Alliance for Freedom, Justice a~
#>  6 ALBANIA P6-   Liberal Democrat Party (Partia Bashkimi Liberal Demokrat ~
#>  7 ALBANIA P7-   Linking Blerta Albanian Party (Partia Lidhja e Blertë Shq~
#>  8 ALBANIA P8-   Democratic Movement for Integration (Lëvizja Demokratike ~
#>  9 ALBANIA P9-   Movement of Human Rights and Freedoms Party (Partia Lëviz~
#> 10 ALBANIA P10-  Socialist Party of Albania (Partia Socialiste e Shqipëris~
#> # ... with 5,515 more rows

  for (l in which(is.na(desc))) { # collapse lines that go over 2 elements
    entry[l - 1] <- paste(entry[l - 1], entry[l], sep = " ")
  }