## Not run:
#
# file_path <- system.file("extdata", "pr2_stramenopiles_gb203.fasta", package = "metacoder")
# sequences <- ape::read.FASTA(file_path)
# pr2_ex_data <- extract_taxonomy(sequences,
# regex = "^(.*\\..*?)\\|(.*)$",
# key = c("obs_id", "class"),
# class_sep = "\\|")
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace