bug trace in terra namespace

Author: brendo1001

DESCRIPTION

@@ -11,4 +11,4 @@ Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.3.2
 Imports:
-	httr, utils, 	stringr, crayon, tibble, terra, jsonlite, stars
+	httr, utils, 	stringr, crayon, tibble, terra, jsonlite, stars, crayon

R/COGsUtils.R

@@ -66,7 +66,7 @@ cogPreview <- function(urls=NULL, delay=3){
     # terra::plot(r, main=n)
     url <- paste0('/vsicurl/', urls[i])
     rs = stars::read_stars(url, proxy = TRUE)
-    plot(rs, downsample = 30, col=rainbow(10))
+    terra::plot(rs, downsample = 30, col=rainbow(10))
     Sys.sleep(dly)
   }
   print('Done')
@@ -92,7 +92,7 @@ cogPlot <- function(url){
   n=stringr::str_remove(basename(url), '.tif')
   url <- paste0('/vsicurl/', url)
   rs = stars::read_stars(url, proxy = TRUE)
-  plot(rs, downsample = 30, col=rainbow(10), main=n)
+  terra::plot(rs, downsample = 30, col=rainbow(10), main=n)
 }
 
 

R/examples.R

@@ -64,13 +64,10 @@ codeDemoCOGs <- function(){
   cat(crayon::blue("\n\n######################################  Code Demo ############################################\n"))
   cat(crayon::blue("\n\nTo utilise COGs effectively you will need to install the R 'terra' package (the 'raster' package replacement.\n"))
 
-  t <- require('terra')
-
-  if(!t){
-    cat(crayon::blue("\n\nIt looks like the 'terra' package is not installed. Lets try and install it now\n"))
-    install.packages('terra')
-    }
-
+  if (!requireNamespace("terra", quietly = TRUE)) {
+    cat(crayon::blue("\n\nIt looks like the 'terra' package is not installed. Let's try and install it now\n"))
+    install.packages("terra")
+  }
 
   cat(crayon::blue("\n\nWe will now demonstrate how to access and use some terra functions with COGs \n"))
   cat(crayon::green("\nLets start by grabbing a COGs URL using - prods <- getProductMetaData(Detail = 'Low',  Attribute='Clay', Resolution = '90m', Version = 2, Component = 'Modelled-Value)\n\n"))
@@ -92,7 +89,7 @@ codeDemoCOGs <- function(){
    url <- paste0(rsp2$StagingPath[1])
    cogPlot(url)
    # rs = stars::read_stars(url, proxy = TRUE)
-   # plot(rs, downsample = 30, col=rainbow(10),  main='This is a 40800 x 49200 pixel raster')
+   # terra::plot(rs, downsample = 30, col=rainbow(10),  main='This is a 40800 x 49200 pixel raster')
 
  # o <- try(terra::plot(r), silent=TRUE)
 

README.md

@@ -1,3 +1,5 @@
+[![pkg-test](https://github.com/AusSoilsDSM/SLGACloud/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/AusSoilsDSM/SLGACloud/actions/workflows/R-CMD-check.yaml)
+
 # SLGACloud
 
 SLGACloud is an R package to simplify access to the Soil and Landscape Grid of Australia (SLGA) Cloud Optimised GeoTIFF (COG) DataStore URLs directly within R. It provides helper functions for retrieving COG URLs, working with `terra`, and navigating relevant SLGA web resources.