data-raw/phylogeneticTree.R

phylogenetic_tree_file <-
    base::as.character("https://zenodo.org/record/5668382/files/mpa_v30_CHOCOPhlAn_201901_species_tree.nwk")

phylogenetic_tree_path <-
    base::tempfile()

utils::download.file(url = phylogenetic_tree_file, destfile = phylogenetic_tree_path)

phylogeneticTree <-
    ape::read.tree(phylogenetic_tree_path)

phylogeneticTree[["tip.label"]] <-
    stringr::str_remove_all(phylogeneticTree[["tip.label"]], "GCA_[0-9]+\\|")
vobencha/curatedMetagenomicData documentation built on Oct. 26, 2023, 5:34 a.m.