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

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

Author: rhijmans
Date: 2009-02-25 10:10:48 +0100 (Wed, 25 Feb 2009)
New Revision: 299

Modified:
   pkg/raster/R/group.generic.functions.R
Log:


Modified: pkg/raster/R/group.generic.functions.R
===================================================================
--- pkg/raster/R/group.generic.functions.R	2009-02-25 08:26:17 UTC (rev 298)
+++ pkg/raster/R/group.generic.functions.R	2009-02-25 09:10:48 UTC (rev 299)
@@ -59,6 +59,9 @@
 				raster <- setValues(raster, callGeneric( .getRowValues(x, r) ), r)
 				raster <- writeRaster(raster)
 			}
+			if (options('verbose')[[1]]) {
+				cat('values were written to:', filename(raster))
+			}
 		}
 		return(raster)
 	}
@@ -78,6 +81,9 @@
 					raster <- setValues(raster, callGeneric( as.numeric(.getRowValues(e1, r)), .getRowValues(e2, r) ), r)
 					raster <- writeRaster(raster)
 				}
+				if (options('verbose')[[1]]) {
+					cat('values were written to:', filename(raster))
+				}
 			}	
 			return(raster)
 		}	
@@ -95,6 +101,9 @@
 				raster <- setValues(raster, callGeneric( as.numeric(.getRowValues(e1, r)), e2) , r) 
 				raster <- writeRaster(raster)
 			}
+			if (options('verbose')[[1]]) {
+				cat('values were written to:', filename(raster))
+			}			
 			return(raster)
 		}		
 	}
@@ -110,6 +119,9 @@
 				raster <- setValues(raster, callGeneric(as.numeric(e1), .getRowValues(e2, r)) , r)
 				raster <- writeRaster(raster)
 			}
+			if (options('verbose')[[1]]) {
+				cat('values were written to:', filename(raster))
+			}
 			return(raster)
 		}		
 	}