try srs wkt too

hypertidy · Jun 6, 2024 · 2d5af08 · 2d5af08
1 parent 460a401
commit 2d5af08
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 6 deletions.
diff --git a/R/vapour-gdal-library.R b/R/vapour-gdal-library.R
@@ -85,6 +85,7 @@ vapour_srs_wkt <- function(crs) {
 #' @export
 #'
 #' @examples
+#' vapour_srs_wkt("+proj=longlat")
 #' vapour_crs_is_lonlat("+proj=laea +type=crs")
 #' vapour_crs_is_lonlat("+proj=longlat +type=crs")
 #' vapour_crs_is_lonlat("+init=EPSG:4326")

diff --git a/inst/include/gdalraster/gdalraster.h b/inst/include/gdalraster/gdalraster.h
@@ -399,14 +399,11 @@ inline List gdal_raster_info(CharacterVector dsn, LogicalVector min_max)
     }
     int nXSize = GDALGetRasterXSize(hDataset);
     int nYSize = GDALGetRasterYSize(hDataset);
-
-
+
     double        adfGeoTransform[6];
-
     //poDataset->GetGeoTransform( adfGeoTransform );
     GDALGetGeoTransform(hDataset, adfGeoTransform );
 
-
     // bail out NOW (we have no SDS and/or no rasters)
     // #f <- system.file("h5ex_t_enum.h5", package = "h5")
     if (GDALGetRasterCount(hDataset) < 1) {
@@ -437,11 +434,10 @@ inline List gdal_raster_info(CharacterVector dsn, LogicalVector min_max)
     CSLDestroy(pfilelist);
     GDALRasterBandH  hBand;
     int             nBlockXSize, nBlockYSize;
-    //int             bGotMin, bGotMax;
     double          adfMinMax[2];
 
     hBand = GDALGetRasterBand(hDataset, 1);
-    // if we don't bail out above with no rasters things go bad here
+
     GDALGetBlockSize(hBand, &nBlockXSize, &nBlockYSize);
     if (min_max[0]) {
       GDALComputeRasterMinMax(hBand, TRUE, adfMinMax);

diff --git a/man/vapour_crs_is_lonlat.Rd b/man/vapour_crs_is_lonlat.Rd