srs.polygon and sss.polygon not accepting SpatialPolygons object

[tmcd82070]

srs.polygon and sss.polygon are not accepting a SpatialPolygons object, and aborts with an error. They both accept SpatialPolygonsDataFrame objects.

[jcarlis3]

This might be a bandaid, but you could insert some code to check for SpatialPolygons objects and convert them to SpatialPolygonsDataFrame objects on the fly. This chunk simply adds an attribute table (@data slot) with an ID column numbered 1:length(x).

# Function to convert SpatialPolygons to SpatialPolygonsDataFrame
makeSpatialPolygonsDataFrame <- function(x) {
  x <- SpatialPolygonsDataFrame(x, data.frame(ID=1:length(x)), match.ID=FALSE)
  return(x)
}

# Check for SpatialPolygons and convert if needed
if(class(x) == "SpatialPolygons") {
  makeSpatialPolygonsDataFrame(x)
  return(x)
}