df <- data.frame(
species = c("Genus epithet 1",
"Genus epithet 2",
"Genus epithet 3",
"Genus epithet 4",
"Genus epithet 5"),
synonyms = c("Genus epithet 1.1; Genus epithet 1.2",
"Genus epithet 2",
"Genus epithet 3",
"Not found",
"Genus epithet 5.1; Genus epithet 5.2; Genus epithet 5.3"),
status = c("ambiguous",
"updated",
"up_to_date",
"not_found",
"ambiguous"),
stringsAsFactors = FALSE
)
reptTidySyn(df, filter = c("ambiguous", "not_found"))
Run the code above in your browser using DataLab