for # 1996

Author: rhijmans

NAMESPACE

@@ -21,6 +21,6 @@ S3method(str, SpatRaster)
 S3method(str, SpatExtent)
 S3method(str, SpatGraticule)
 
-export(add_abline, add_box, add_legend, add_grid, add_mtext, ar_info, clearVSIcache, combineLevels, focalMat, extractAlong, gdal, getGDALconfig, graticule, halo, libVersion, setGDALconfig, map.pal, map_extent, north, sbar, terraOptions, tmpFiles, makeVRT, mem_info, free_RAM, same.crs, shade, gdalCache, fileBlocksize, vector_layers, vrt_tiles, names, round, unloadGDALdrivers)
+export(add_abline, add_box, add_legend, add_grid, add_mtext, ar_info, clearVSIcache, combineLevels, focalMat, extractAlong, gdal, getGDALconfig, graticule, halo, libVersion, proj_ok, setGDALconfig, map.pal, map_extent, north, sbar, terraOptions, tmpFiles, makeVRT, mem_info, free_RAM, same.crs, shade, gdalCache, fileBlocksize, vector_layers, vrt_tiles, names, round, unloadGDALdrivers)
 
 

R/RcppExports.R

@@ -5,6 +5,10 @@
     .Call(`_terra_have_TBB`)
 }
 
+.proj_conf_test <- function() {
+    .Call(`_terra_proj_conf_test`)
+}
+
 proj_version <- function() {
     .Call(`_terra_proj_version`)
 }

R/gdal.R

@@ -4,6 +4,10 @@ unloadGDALdrivers <- function(x) {
 	.removeDriver(x)
 }
 
+proj_ok <- function() {
+	.proj_conf_test()
+}
+
 
 fileBlocksize <- function(x) {
 	v <- x@pntr$getFileBlocksize()

man/gdal.Rd

@@ -7,6 +7,8 @@
 \alias{getGDALconfig}
 \alias{setGDALconfig}
 \alias{unloadGDALdrivers}
+\alias{proj_ok}
+
 
 \title{GDAL version, supported file formats, and cache size}
 
@@ -16,6 +18,8 @@ Set the \code{GDAL} warning level or get a \code{data.frame} with the available
 \code{GDAL} is the software library that terra builds on to read and write spatial data and for some raster data processing. \code{PROJ} is used for transformation of coordinates ("projection") and \code{GEOS} is used for geometric operations with vector data.
 
 The current \code{GDAL} configuration options and obtained with \code{getGDALconfig} and changed with \code{setGDALconfig}. 
+
+\code{proj_ok} checks if the PROJ database with CRS definitions can be found.
 }
 
 \usage{
@@ -26,6 +30,7 @@ getGDALconfig(option)
 clearVSIcache()
 libVersion(lib="all", parse=FALSE)
 unloadGDALdrivers(x)
+proj_ok()
 }
 
 \arguments{

src/RcppExports.cpp

@@ -20,6 +20,16 @@ BEGIN_RCPP
     return rcpp_result_gen;
 END_RCPP
 }
+// proj_conf_test
+bool proj_conf_test();
+RcppExport SEXP _terra_proj_conf_test() {
+BEGIN_RCPP
+    Rcpp::RObject rcpp_result_gen;
+    Rcpp::RNGScope rcpp_rngScope_gen;
+    rcpp_result_gen = Rcpp::wrap(proj_conf_test());
+    return rcpp_result_gen;
+END_RCPP
+}
 // proj_version
 std::string proj_version();
 RcppExport SEXP _terra_proj_version() {
@@ -443,6 +453,7 @@ RcppExport SEXP _rcpp_module_boot_spat();
 
 static const R_CallMethodDef CallEntries[] = {
     {"_terra_have_TBB", (DL_FUNC) &_terra_have_TBB, 0},
+    {"_terra_proj_conf_test", (DL_FUNC) &_terra_proj_conf_test, 0},
     {"_terra_proj_version", (DL_FUNC) &_terra_proj_version, 0},
     {"_terra_hex2rgb", (DL_FUNC) &_terra_hex2rgb, 1},
     {"_terra_rgb2hex", (DL_FUNC) &_terra_rgb2hex, 1},

src/RcppFunctions.cpp

@@ -42,7 +42,6 @@
 #endif
 
 
-
 // [[Rcpp::export(name = ".have_TBB")]]
 bool have_TBB() {
 	#ifdef HAVE_TBB
@@ -53,6 +52,17 @@ bool have_TBB() {
 }
 
 
+// [[Rcpp::export(name = ".proj_conf_test")]]
+bool proj_conf_test() {
+    PJ *crs = proj_create(nullptr, "EPSG:4326");
+    if (!crs) {
+        return false;
+    }
+    proj_destroy(crs);
+    return true;
+}
+
+
 //from sf
 #ifdef projh
 // [[Rcpp::export]]