[Raster-commits] r480 - pkg/raster/R

[noreply at r-forge.r-project.org]

Author: rhijmans
Date: 2009-09-08 07:28:49 +0200 (Tue, 08 Sep 2009)
New Revision: 480

Modified:
   pkg/raster/R/raster.R
Log:


Modified: pkg/raster/R/raster.R
===================================================================
--- pkg/raster/R/raster.R	2009-09-06 04:40:31 UTC (rev 479)
+++ pkg/raster/R/raster.R	2009-09-08 05:28:49 UTC (rev 480)
@@ -37,6 +37,7 @@
 			grdfile <- .setFileExtensionHeader(x)
 			if (file.exists( grdfile) ) {
 				if (file.exists( grifile)) {
+				    if (fileext != '.grd') { ext(x) <- '.grd' }
 					r <- .rasterFromRasterFile(x, band) 
 				} else {
 					# TODO check if this is a valid rater .grd but the problem is that the .gri is missing?