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

I think this does the trick

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

Tidyverse approach:

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