r - 球体上圆的最小外接矩形

Question

哪些 R 包可用于计算大圆的最小边界框？

例如：

box <- polycirc( c( longitude, latitude ), distance=35 )

这将返回给定坐标（在地球上）距离中心点 35 公里半径的圆的边界框。在哪里：

box.longitude_min = The longitude of the circle's western-most point.
box.longitude_max = The longitude of the circle's eastern-most point.
box.latitude_min = The latitude of the circle's southern-most point.
box.latitude_max = The latitude of the circle's northern-most point.

R中应该已经存在这样的东西，但我找不到它。我目前正在变形为 R 的最接近的（来自 SO）是：

http://janmatuschek.de/LatitudeLongitudeBoundingCoordinates

另外，圆的最小边界矩形的词（如果有的话）是什么？（外接的反义词。）

Answer 1

给我的：

  library( geosphere )
  p <- c( longitude, latitude )
  box <- apply( destPoint( p, c(0, 90, 180, 270), distance ), 2, range )
  print( box )

Answer 2

使用该polycirc函数生成圆的点，然后min找到max边界框:)

require(pgirmess)
circle <- polycirc(20, c(10, 20))
plot(circle, type = "l")
rect(min(circle[,1]), min(circle[,2]), max(circle[,1]), max(circle[,2]))