s_attributes() fails for parent attribute

[ablaette]

library(polmineR)

speeches <- corpus("GERMAPARL2") %>%
  subset(as.integer(protocol_lp) %in% 18:21) %>% 
  as.speeches(
    s_attribute_name = "speaker_name",
    gap = 50, # gap is 500 by default
    mc = cores_to_use
  )

# works
parties <- s_attributes(speeches, "speaker_party") %>% 
  unlist() %>% 
  tibble(doc = names(.), party = unname(.)) %>% 
  select(party, subcorpus)
 
# fails
dates <- s_attributes(speeches, "protocol_date") %>% 
  unlist() %>% 
  tibble(doc = names(.), date = unname(.)) %>% 
  select(party, date)

[ablaette]

This is identical with: #283 (comment)
The solution for #283 also solves this issue.

[ablaette]

This code actually works (and demonstrates that the issue is solved).

library(polmineR)
library(dplyr)

speeches <- corpus("GERMAPARL2") %>%
  subset(as.integer(protocol_lp) %in% 18:21) %>% 
  as.speeches(
    s_attribute_name = "speaker_name",
    gap = 50, # gap is 500 by default
    mc = cores_to_use
  )

# works
parties <- s_attributes(speeches, "speaker_party") %>% 
  unlist() %>% 
  tibble(doc = names(.), party = unname(.)) %>% 
  select(party, doc)

# fails
dates <- s_attributes(speeches, "protocol_date") %>% 
  unlist() %>% 
  tibble(name = names(.), date = unname(.)) %>% 
  select(name, date)