我在我的脚本中使用了以下功能。它使用urlopen检查外部IP，但是如果发生超时则跳到另一个站点，直到获得IP并返回它...
不确定这是否是最佳方式..如果它根本不可能获得ip，它将重新启动eth，但那部分并不重要......
pts.poly <- point.in.polygon(point.x = dtSpatial$longitude,
point.y = dtSpatial$latitude,
pol.x = fortify(br_tracts)$long,
pol.y = fortify(br_tracts)$lat )
> pts.poly
[1] 1 1 0 0 0 0 0 1 1 0 1 0 0 0 0 0 1 0 0 0