\HeaderA{SpatialPolygons-class}{Class "SpatialPolygons"}{SpatialPolygons.Rdash.class}
\aliasA{as.data.frame.SpatialPolygons}{SpatialPolygons-class}{as.data.frame.SpatialPolygons}
\aliasA{plot.SpatialPolygons}{SpatialPolygons-class}{plot.SpatialPolygons}
\aliasA{plotSpatialPolygons}{SpatialPolygons-class}{plotSpatialPolygons}
\aliasA{[,SpatialPolygons-method}{SpatialPolygons-class}{[,SpatialPolygons.Rdash.method}
\keyword{classes}{SpatialPolygons-class}
\begin{Description}\relax
class to hold polygon topology (without attributes)
\end{Description}
\begin{Section}{Objects from the Class}
Objects can be created by calls to the function \LinkA{SpatialPolygons}{SpatialPolygons}
\end{Section}
\begin{Section}{Slots}
\describe{
\item[\code{polygons}:] Object of class \code{"list"}; list elements are
all of class \LinkA{Polygons-class}{Polygons.Rdash.class}
\item[\code{plotOrder}:] Object of class \code{"integer"}; integer array
giving the order in which objects should be plotted 
\item[\code{bbox}:] Object of class \code{"matrix"}; see \LinkA{Spatial-class}{Spatial.Rdash.class} 
\item[\code{proj4string}:] Object of class \code{"CRS"}; see \LinkA{CRS-class}{CRS.Rdash.class}
}
\end{Section}
\begin{Section}{Extends}
Class \code{"Spatial"}, directly.
\end{Section}
\begin{Section}{Methods}
No methods defined with class "SpatialPolygons" in the signature.
\end{Section}
\begin{Note}\relax
\end{Note}
\begin{Author}\relax
Roger Bivand
\end{Author}
\begin{References}\relax
\end{References}
\begin{SeeAlso}\relax
\LinkA{SpatialPolygons}{SpatialPolygons}
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
data(ncshp)
nc1 <- as.SpatialPolygons.Shapes(nc.shp$Shapes, as.character(nc.shp$att.data$FIPS))
plotSpatialPolygons(nc1)
invisible(text(getSpPPolygonsLabptSlots(nc1), labels=getSpPPolygonsIDSlots(nc1), cex=0.6))
data(ncmap)
IDs <- sapply(strsplit(ncmap$names, ","), function(x) x[2])
nc2 <- as.SpatialPolygons.map(ncmap, IDs)
plotSpatialPolygons(nc2)
invisible(text(getSpPPolygonsLabptSlots(nc2), labels=getSpPPolygonsIDSlots(nc2), cex=0.6))
data(co37_d90_arc)
data(co37_d90_pal)
data(co37_d90_pat)
IDs <- paste(pat$ST[-1], pat$CO[-1], sep="")
nc3 <- as.SpatialPolygons.pal(arc, pal, IDs=IDs)
plotSpatialPolygons(nc3)
invisible(text(getSpPPolygonsLabptSlots(nc3), labels=getSpPPolygonsIDSlots(nc3), cex=0.6))
\end{ExampleCode}
\end{Examples}

