How to remove a level of lists from a list of lists

Tidyverse approach:

library(purrr)
new.pp <- flatten(pp)

I think this does the trick

new.pp <- unlist(pp,recursive=FALSE)