Skip to content

Commit

Permalink
fix description
Browse files Browse the repository at this point in the history
make function call explicit for utils and zip
  • Loading branch information
ohagen committed Jul 7, 2024
1 parent e7c6466 commit f6b0e57
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ Package: gbif.range
Version: 1.0
Title: A toolbox to generate species range maps based on ecoregions and a user-friendly GBIF wrapper
Depends: R (>= 4.0.0)
Imports: terra, rgbif, CoordinateCleaner, sf, ClusterR, FNN, geometry, cluster, rnaturalearth, mclust, methods, utils, download.file, unzip
Imports: terra, rgbif, CoordinateCleaner, sf, ClusterR, FNN, geometry, cluster, rnaturalearth, mclust, methods, utils, utils, zip
Description: This package provides a workflow to generate species range maps from scratch based on ecoregions and a user-friendly GBIF wrapper. It includes functions to create taxa range maps using ecoregions and to interact with the Global Biodiversity Information Facility (GBIF) database (retrieving species records, backbone taxonomy and IUCN conservation status). The package facilitates the process of accessing GBIF data and integrating it with ecoregion information for species distribution analysis.
License: GPL (>= 3) | file LICENCE
BugReports: https://github.com/8Ginette8/gbif.range/issues
Expand Down
4 changes: 2 additions & 2 deletions R/get_bioreg.R
Original file line number Diff line number Diff line change
Expand Up @@ -100,7 +100,7 @@ get_bioreg <- function(bioreg_name = "all", save_dir = NULL) {

# Download the file
tryCatch({
download.file(url, destfile, mode = "wb")
utils::download.file(url, destfile, mode = "wb")
message(paste("Downloaded:", data$filename))
if (!is.null(data$description)) {
message(paste("Description:", data$description))
Expand All @@ -110,7 +110,7 @@ get_bioreg <- function(bioreg_name = "all", save_dir = NULL) {
})

# Unzip to folder named after filename
unzip(destfile, exdir = file.path(save_dir, data$filename))
zip::unzip(destfile, exdir = file.path(save_dir, data$filename))
# Remove the zip file
file.remove(destfile)
message(paste("Unzipped:", data$filename, "\n saved to:", file.path(save_dir, data$filename),
Expand Down

0 comments on commit f6b0e57

Please sign in to comment.