球体上圆的最小外接矩形

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 中，但我找不到它。我发现的最接近的（来自SO），我目前正在将其转换为R，是：

http://janmatuschek.de /LatitudeLongitudeBoundingCooperatives

另外，圆的最小外接矩形用什么词（如果有的话）？ （与限制相反。）

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]))