Extract coordinates from SpatialPolygon object

extractCoords.R

# By Stack user forlooper 
# https://stackoverflow.com/a/37332382
#
# e.g.
# p <- extractCoords(SST_start)
extractCoords <- function(sp.df)
{
  results <- list()
  for(i in 1:length(sp.df@polygons[[1]]@Polygons))
  {
    results[[i]] <- sp.df@polygons[[1]]@Polygons[[i]]@coords
  }
  results <- data.frame(Reduce(rbind, results))
  results
}