球体上圆的最小包围矩形

Question

R包可用于计算大圆的最小包围盒？

例如：

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

这将在指定的坐标（地球上）有35公里，距中心点的半径返回边框为一圈。 Where：

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），我目前transmogrifying到R，是：

http://janmatuschek.de/LatitudeLongitudeBoundingCoordinates

而且，什么字（如果有的话）的圆的最小外接矩形？ （中circumscribed对面）

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