next

Author: rhijmans

ChangeLog

@@ -16,7 +16,7 @@ Improved estimation of available RAM with contributions by Lorenzo Busetto. RAM
 testthat unit tests introduced by Mike Sumner and Jakub Nowosad
 as.character() for Raster objects to create the R code to re-create the Raster skeleton in examples.
 
-reading point values via GDAL has become slower in 2.7-15, reverted to previous function
+Reading point values via GDAL has become slower in 2.7-15, reverted to previous function. 
 
 Bug fixes:
 fixed the link for GADM countries download. Bug reported by Loic Dutrieux

DESCRIPTION

@@ -1,15 +1,17 @@
 Package: raster
 Type: Package
 Title: Geographic Data Analysis and Modeling
-Version: 2.8-4
+Version: 2.8-5
 Date: 2018-11-02
 Depends: methods, sp (>= 1.2-0), R (>= 3.0.0)
 Suggests: rgdal (>= 0.9-1), rgeos (>= 0.3-8), ncdf4, igraph, tcltk, parallel, rasterVis, MASS, sf, testthat
 LinkingTo: Rcpp
 Imports: Rcpp
 SystemRequirements: C++11
 Authors@R: c(
-	person("Robert J.", "Hijmans", role = c("cre", "aut"),  email = "[email protected]"),
+	person("Robert J.", "Hijmans", role = c("cre", "aut"),  
+			email = "[email protected]", 
+			comment = c(ORCID = "0000-0001-5872-2872")),
 	person("Jacob", "van Etten", role = "ctb"),
 	person("Joe", "Cheng", role = "ctb"),
 	person("Michael", "Sumner", role = "ctb"),

inst/external/lux.dbf

@@ -52,16 +52,14 @@ Spatial* object
 
 
 \examples{
-if (require(rgdal) & require(rgeos)) {
-	p <- shapefile(system.file("external/lux.shp", package="raster"))
-	mersch <- p[p$NAME_2=='Mersch', ]
-	diekirch <- p[p$NAME_2=='Diekirch', ]
-	remich <- p[p$NAME_2=='Remich', ]
-	remich$NAME_1 <- NULL
-	x <- bind(mersch, diekirch, remich)
-	plot(x)
-	data.frame(x)
-}
+p <- readRDS(system.file("external/lux.rds", package="raster"))
+mersch <- p[p$NAME_2=='Mersch', ]
+diekirch <- p[p$NAME_2=='Diekirch', ]
+remich <- p[p$NAME_2=='Remich', ]
+remich$NAME_1 <- NULL
+x <- bind(mersch, diekirch, remich)
+plot(x)
+data.frame(x)
 }
 
 \keyword{methods}

inst/external/lux.rds

@@ -33,17 +33,15 @@ Matrix with 6, (5 SpatialLines), or 3 (SpatialPoints) columns. object (sequentia
 
 
 \examples{
-if (require(rgdal) & require(rgeos)) {
-	p <- shapefile(system.file("external/lux.shp", package="raster"))
-	x <- geom(p)
-	head(x)
+p <- readRDS(system.file("external/lux.rds", package="raster"))
+x <- geom(p)
+head(x)
 
 # and back to a SpatialPolygonsDataFrame	
-	x <- data.frame(x)
-	sp <- as(x, "SpatialPolygons")
-	crs(sp) <- crs(p)
-	spdf <- SpatialPolygonsDataFrame(sp, data.frame(p), match.ID=FALSE)
-}
+x <- data.frame(x)
+sp <- as(x, "SpatialPolygons")
+crs(sp) <- crs(p)
+spdf <- SpatialPolygonsDataFrame(sp, data.frame(p), match.ID=FALSE)
 }
 
 \keyword{methods}

man/bind.Rd

@@ -35,7 +35,7 @@ a <- spLines(x1, x2, x3)
 b <- spLines(x1, list(x2, x3), attr=data.frame(id=1:2), crs='+proj=longlat +datum=WGS84')
 b
 
-hole <- rbind(c(-150,-20), c(-100,-10), c(-110,20))
+hole <- rbind(c(-150,-20), c(-100,-10), c(-110,20), c(-130,10))
 d <- spPolygons(list(x1,hole), x2, list(x3, x4))
 
 att <- data.frame(ID=1:3, name=c('a', 'b', 'c'))