This function get files
Examples
git <- "https://github.com/"
org <- "taxonomicallyinformedannotation"
repo <- "tima-example-files"
branch <- "main"
file <- "example_metadata.tsv"
get_file(
url = paste(git, org, repo, "raw", branch, file, sep = "/"),
export = "data/source/example_metadata.tsv"
)
#> Directory data/source created.
#> [1] "data/source/example_metadata.tsv"
unlink("data", recursive = TRUE)