break link to input xyz before changing it internally

bcgov · Feb 10, 2024 · c44e900 · c44e900
1 parent 4ab31f5
commit c44e900
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/dbGetRaster.R b/R/dbGetRaster.R
@@ -174,7 +174,7 @@ pgGetTerra <- function(conn, name, tile, rast = "rast", bands = 37:73,
 #' @return integer. A bounding box (e.g. `c(51, 50, -121, -122)`)
 #' @export
 get_bb <- function(in_xyz) {
-  .checkXYZ(in_xyz)
+  .checkXYZ(copy(in_xyz))
   thebb <- c(max(in_xyz[, "lat"]), min(in_xyz[, "lat"]), max(in_xyz[, "lon"]), min(in_xyz[, "lon"]))
 
   if (any(is.na(thebb))) {

diff --git a/R/downscale.R b/R/downscale.R
@@ -94,7 +94,7 @@ climr_downscale <- function(xyz, which_normal = c("auto", list_normal()), histor
                         gcm_hist_years, max_run, vars)
 
   expectedCols <- c("lon", "lat", "elev", "id")
-  xyz <- .checkXYZ(xyz, expectedCols)
+  xyz <- .checkXYZ(copy(xyz), expectedCols)
 
   dbCon <- data_connect()
   thebb <- get_bb(xyz) ## get bounding box based on input points
@@ -310,7 +310,7 @@ downscale <- function(xyz, normal, gcm = NULL, historic = NULL, gcm_ts = NULL, g
                    historic_ts, return_normal, vars)
 
   expectedCols <- c("lon", "lat", "elev", "id")
-  xyz <- .checkXYZ(xyz, expectedCols)
+  xyz <- .checkXYZ(copy(xyz), expectedCols)
 
   if (isTRUE(nthread > 1L)) {
     if (!requireNamespace("parallel")) {