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

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

Author: rhijmans
Date: 2009-01-30 06:58:45 +0100 (Fri, 30 Jan 2009)
New Revision: 219

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


Modified: pkg/raster/R/makeProjString.R
===================================================================
--- pkg/raster/R/makeProjString.R	2009-01-30 05:51:03 UTC (rev 218)
+++ pkg/raster/R/makeProjString.R	2009-01-30 05:58:45 UTC (rev 219)
@@ -20,8 +20,10 @@
 		projname <- as.vector(prj[which(prj[,1]==projection), 2])
 	}
 	pargs <- list(...)
-	for (i in 1:length(pargs)) {
-		pstr <- paste(pstr, ' +', pargs[[i]], sep="")
+	if ( length(pargs) > 0 ) {
+		for (i in 1:length(pargs)) {
+			pstr <- paste(pstr, ' +', pargs[[i]], sep="")
+		}
 	}
 	if (ellipsoid != "") {
 		if (!(ellipsoid %in% ell[,1])) { 
@@ -52,6 +54,6 @@
 	}
 }
 
- #newprj2 <- makeProj("lcc", "lat_1=48", "lat_2=33", "lon_0=-100", asText=T)
+ newprj2 <- makeProj("lcc", "lat_1=48", "lat_2=33", "lon_0=-100", asText=T)