if (FALSE) {
#Creating a folder in a temporary directory
#Replace 'file.path(tempdir(), "faunabr")' by a path folder to be create in
#your computer
my_dir <- file.path(file.path(tempdir(), "faunabr"))
dir.create(my_dir)
#Download, merge and save data
get_fauna(output_dir = my_dir, data_version = "latest", overwrite = TRUE,
verbose = TRUE)
#Load data
df <- load_faunabr(data_dir = my_dir, data_version = "latest",
type = "short")
}
Run the code above in your browser using DataLab