如何绘制空间物体的四角？

Question

一些数据：

require(sp)
require(rgeos)

pts1 = cbind(seq(50,850,100), 50)
pts2 = cbind(seq(50,850,100), 150)
df = data.frame(1:18)
ptss <- rbind(pts1,pts2)
Spts <- SpatialPointsDataFrame(ptss, df)
sPts.B <- gBuffer(Spts, byid=TRUE, width=48, capStyle="SQUARE")
plot(sPts.B)

结果是我正在寻找的一种网格。 用sPts.B绘制lwd=4会导致带有圆角的正方形，但是我想接收正方形的角。使用绘图参数lend仅产生一个平方角。

如何使所有角正方形？