Added imported package names to functions where it was missing.

Author: ryanrbart

R/download_terrain_variables.R

@@ -62,7 +62,7 @@ download_terrain_variables <- function(bbox,
   # -----------------
   # Reproject
 
-  terrain_raster_reproject <- terra::project(terrain_raster, y = crs(paste0("epsg:", proj_epsg)))
+  terrain_raster_reproject <- terra::project(terrain_raster, y = terra::crs(paste0("epsg:", proj_epsg)))
 
   # -----------------
   # Change resolution

R/make_basin_raster.R

@@ -67,7 +67,7 @@ make_basin_raster <- function(work_folder,
       # Set crs as WGS84 (EPSG: 4326)
       sf::st_crs(pour_point) <- 4326
       # Change projection to UTM
-      pour_point <- sf::st_transform(pour_point, crs = st_crs(proj_epsg))
+      pour_point <- sf::st_transform(pour_point, crs = sf::st_crs(proj_epsg))
       # Save pour point so it can be imported to whitebox functions
       pour_point_file <- file.path(work_folder, "pour_point.shp")
       sf::st_write(pour_point, pour_point_file, delete_dsn = TRUE)
@@ -108,9 +108,9 @@ make_basin_raster <- function(work_folder,
                                         snap_dist = snap_dist)
 
   # Create basin file
-  wbt_watershed(d8_pntr = d8_pointer,
-                pour_pts = pour_point_snapped,
-                output = basin)
+  whitebox::wbt_watershed(d8_pntr = d8_pointer,
+                          pour_pts = pour_point_snapped,
+                          output = basin)
 
   # -----------------
   # Save a map showing pour point adjustment

R/make_landscape_rasters.R

@@ -45,7 +45,7 @@ make_landscape_rasters <- function(dem,
                                    patch_method = "simple"){
 
   # Check that whitebox is loaded
-  if (check_whitebox_binary() == FALSE){stop("Whitebox not detected.")}
+  if (whitebox::check_whitebox_binary() == FALSE){stop("Whitebox not detected.")}
 
   # Check that work folder exists. If it doesn't, then make it, if possible.
   if(!dir.exists(work_folder)){dir.create(work_folder)}