# NOT RUN {
file_path <- system.file("extdata", "silva_nr99.fasta", package = "metacoder")
sequences <- ape::read.FASTA(file_path)
silva_ex_data <- extract_taxonomy(sequences,
regex = "^(.*?) (.*)$",
key = c(id = "obs_info", "class"),
class_sep = ";")
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace