x <- c("Agarista revoluta (Spreng.) Hook. f. ex Nied.", "Amaioua intermedia Mart.", "Baccharis reticularia DC.")
sub("^(\\S*\\s+\\S+).*", "\\1", x)
eCA8LSBjKCJBZ2FyaXN0YSByZXZvbHV0YSAoU3ByZW5nLikgSG9vay4gZi4gZXggTmllZC4iLCAiQW1haW91YSBpbnRlcm1lZGlhIE1hcnQuIiwgIkJhY2NoYXJpcyByZXRpY3VsYXJpYSBEQy4iKQpzdWIoIl4oXFxTKlxccytcXFMrKS4qIiwgIlxcMSIsIHgp