Merge pull request #17 from Permian-Global-Research/Fix-rcmd

Fix rcmd

Author: h-a-graham

DESCRIPTION

@@ -18,11 +18,13 @@ Imports:
     grDevices,
     httr,
     lubridate,
+    methods,
     purrr,
     reticulate (>= 1.41.0.1),
     rlang,
     rstac,
     scales,
+    stats,
     withr,
     wk,
     xml2

R/plot-raster-src.R

@@ -31,15 +31,15 @@ plot_raster_src <- function(
   yaxs = "r",
   legend = if (nbands == 1) TRUE else FALSE,
   digits = 2,
-  na_col = rgb(0, 0, 0, 0),
+  na_col = grDevices::rgb(0, 0, 0, 0),
   ...
 ) {
-  dpi <- dev.size("px")[1] / dev.size("in")[1]
+  dpi <- grDevices::dev.size("px")[1] / grDevices::dev.size("in")[1]
   dev_inches <- graphics::par("din") # Returns c(width, height) in inches
   dev_size <- dev_inches * dpi
   target_divisor <- dev_size[1] * 1.5
 
-  ds <- new(gdalraster::GDALRaster, x)
+  ds <- methods::new(gdalraster::GDALRaster, x)
   on.exit(if (ds$isOpen()) ds$close())
 
   rxs <- ds$getRasterXSize()

R/vrt-block.R

@@ -20,7 +20,7 @@ build_vrt_block <- function(
   v_assert_valid_schema(x)
 
   # read and verify and get attrs for modified VRT
-  gdr <- new(gdalraster::GDALRaster, x)
+  gdr <- methods::new(gdalraster::GDALRaster, x)
   ras_count <- gdr$getRasterCount()
   assets <- purrr::map_chr(
     seq_len(ras_count),

R/vrt-set-mask.R

@@ -60,7 +60,7 @@ vrt_set_maskfun.vrt_block <- function(
 
   mskvrt <- fs::file_temp(tmp_dir = getOption("vrt.cache"), ext = "vrt")
   ts <- save_vrt(x)
-  ds <- new(gdalraster::GDALRaster, ts)
+  ds <- methods::new(gdalraster::GDALRaster, ts)
   band_files <- setdiff(ds$getFileList(), ds$getFilename())
   msk_file <- band_files[mask_idx]
 

R/vrt-stack.R

@@ -92,7 +92,7 @@ build_vrt_stack <- function(
   # validate the vrt against the schema
   v_assert_valid_schema(x)
   # read and verify modified VRT
-  gdr <- new(gdalraster::GDALRaster, x)
+  gdr <- methods::new(gdalraster::GDALRaster, x)
   ras_count <- gdr$getRasterCount()
   assets <- purrr::map_chr(
     seq_len(ras_count),

man/plot_raster_src.Rd

@@ -1,6 +1,6 @@
 test_that("python can be installed", {
   expect_invisible(
-    vrtility_py_require("numpy", "numba")
+    vrtility_py_require(c("numpy", "numba"))
   )
 })