Skip to content

Instantly share code, notes, and snippets.

@mdsumner
Created May 21, 2025 22:44
Show Gist options
  • Save mdsumner/f2239132df2a9d4319b29a4be71233ef to your computer and use it in GitHub Desktop.
Save mdsumner/f2239132df2a9d4319b29a4be71233ef to your computer and use it in GitHub Desktop.
pkgurl <- "https://cran.r-project.org/src/contrib/terra_1.8-50.tar.gz"
dsn0 <- sprintf("/vsitar//vsicurl/%s", pkgurl)
files <- gdalraster::vsi_read_dir(dsn0, recursive  = TRUE)
tif0 <- grep("\\.tif$", files, value = TRUE)[1]

tif <- sprintf("%s/%s", dsn0, tif0)

new(gdalraster::GDALRaster, tif)
#C++ object of class GDALRaster
# Driver : GeoTIFF (GTiff)
# DSN    : /vsitar//vsicurl/https://cran.r-project.org/src/contrib/terra_1.8-50.tar.gz/terra/inst/ex/elev.tif
# Dim    : 95, 90, 1
# CRS    : WGS 84 (EPSG:4326)
# Res    : 0.008333, 0.008333
# Bbox   : 5.741667, 49.441667, 6.533333, 50.191667


terra::rast(tif)
#class       : SpatRaster 
#dimensions  : 90, 95, 1  (nrow, ncol, nlyr)
#resolution  : 0.008333333, 0.008333333  (x, y)
#extent      : 5.741667, 6.533333, 49.44167, 50.19167  (xmin, xmax, ymin, ymax)
#coord. ref. : lon/lat WGS 84 (EPSG:4326) 
#source      : elev.tif 
#name        : elevation 
#min value   :       141 
#max value   :       547 
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment