fork download
  1. library(stringr)
  2. x <- c("GO:0016559~peroxisome fission,","GO:0006122~mitochondrial electron transport, ubiquinol to cytochrome c,","GO:0006122~mitochondrial electron transport, ubiquinol to cytochrome c,GO:0006334~nucleosome assembly,")
  3. unlist(str_extract_all(x, "(?<=~).*?(?=,(?:GO:\\d+~|$))"))
Success #stdin #stdout 0.24s 42624KB
stdin
Standard input is empty
stdout
[1] "peroxisome fission"                                         
[2] "mitochondrial electron transport, ubiquinol to cytochrome c"
[3] "mitochondrial electron transport, ubiquinol to cytochrome c"
[4] "nucleosome assembly"