How do I merge the following into a single pass call?
rk <- rk %>% filter(Peptide %in% pp) %>% collect() %>%
    separate(col="FragType", into=c("Product","FragZ"), remove=FALSE)
  rk[is.na(rk)]=0