R/GrapDF.R

In gfalbery/ggregplot:

GrapDF <- function(List, Var){
  
  Mapped <- List %>% map(Var)
  
  N <- 1:length(Mapped)
  
  IsNull <- Mapped %>% sapply(is.null)
  
  data.frame(
    
    N = N[!IsNull],
    
    Value = Mapped[!IsNull] %>% unlist
    
  ) -> DF
  
  names(DF)[2] <- Var
  
  return(DF)
  
}