library(stringr)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,")unlist(str_extract_all(x, "(?<=~).*?(?=,(?:GO:\\d+~|$))"))
Standard input is empty
[1] "peroxisome fission" [2] "mitochondrial electron transport, ubiquinol to cytochrome c" [3] "mitochondrial electron transport, ubiquinol to cytochrome c" [4] "nucleosome assembly"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!