library(dplyr)
library(purrr)
df1 %>% mutate(n = pmax(lengths(accession), lengths(title))) %>% mutate_at(vars(accession, title), ~ map2(., n, ~ `length<-`(.x, .y))) %>% select(-n) %>% unnest(cols = c(accession, title))