fork(2) download
  1. x <- c("Agarista revoluta (Spreng.) Hook. f. ex Nied.", "Amaioua intermedia Mart.", "Baccharis reticularia DC.")
  2. sub("^(\\S*\\s+\\S+).*", "\\1", x)
Success #stdin #stdout 0.22s 60752KB
stdin
Standard input is empty
stdout
[1] "Agarista revoluta"     "Amaioua intermedia"    "Baccharis reticularia"