SEXP RGDAL_GetRasterAccess(SEXP sxpRasterBand) { GDALRasterBand *pRasterBand = getGDALRasterPtr(sxpRasterBand); return(ScalarLogical(pRasterBand->GetAccess() == GA_ReadOnly)); }
SEXP RGDAL_GetRasterAccess(SEXP sxpRasterBand) { GDALRasterBand *pRasterBand = getGDALRasterPtr(sxpRasterBand); int res; installErrorHandler(); res = pRasterBand->GetAccess() == GA_ReadOnly; uninstallErrorHandlerAndTriggerError(); return(ScalarLogical(res)); }