Создать полигоны экстента и границы данного растра в R

Я хочу создать два полигона.

1. Один из прямоугольных размеров моего растра. Я знаю, что могу получить степень использования растра, r <- raster("band5.tif") e <- extent(r) plot(e)дает мне это:

2. Как я могу создать один полигон границы растра, как показано ниже?

Вот как выглядит мой растр:

Вот пример.

library(raster)
# example data
x <- raster(system.file("external/test.grd", package="raster"))

Чтобы получить прямоугольную степень

e <- extent(x)
# coerce to a SpatialPolygons object
p <- as(e, 'SpatialPolygons')  

Чтобы получить многоугольник, который окружает ячейки, которые не являются NA

# make all values the same. Either do
r <- x > -Inf
# or alternatively
# r <- reclassify(x, cbind(-Inf, Inf, 1))

# convert to polygons (you need to have package 'rgeos' installed for this to work)
pp <- rasterToPolygons(r, dissolve=TRUE)

# look at the results
plot(x)
plot(p, lwd=5, border='red', add=TRUE)
plot(pp, lwd=3, border='blue', add=TRUE)