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

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

Author: rhijmans
Date: 2009-05-08 17:00:18 +0200 (Fri, 08 May 2009)
New Revision: 447

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


Modified: pkg/raster/R/projectRaster.R
===================================================================
--- pkg/raster/R/projectRaster.R	2009-05-08 14:55:24 UTC (rev 446)
+++ pkg/raster/R/projectRaster.R	2009-05-08 15:00:18 UTC (rev 447)
@@ -65,7 +65,7 @@
 	for (r in 1:nrow(to)) {
 		cells <- rowCells + (r-1) * ncol(to)
 		xy <- xyFromCell(to, cells)
-		res <- .Call("transform", projfrom, projto, nrow(xy), xy[,1], xy[,2], PACKAGE="rgdal")
+		res <- .Call("transform", projto, projfrom, nrow(xy), xy[,1], xy[,2], PACKAGE="rgdal")
 		unProjXY <- cbind(res[[1]], res[[2]])
 		vals <- xyValues(from, unProjXY, method=xymethod)
 		if (inMemory) {