This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
make_GeodesicBuffer <- function(XY.dg, dg.step=5, dst.m, crs){ | |
####################################################################################################### | |
## Function to make a circle-buffer around given points (long-lat coordinates) | |
## Is different from rgeos::gBuffer() by the fact that it allows the user to create | |
## a geodesic buffer with a width expressed in metric units. | |
## Otherwise the user needs to project and apply an Euclidian buffer with rgeos::gBuffer(), | |
## which will introduce distortions that vary greatly with latitude and the radius of the circle buffer. | |
## See also my question addressed here: | |
## https://gis.stackexchange.com/questions/250389/euclidean-and-geodesic-buffering-in-r | |
## |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html> | |
<head> | |
<meta charset='utf-8' /> | |
<title></title> | |
<link href='https://api.tiles.mapbox.com/mapbox-gl-js/v0.26.0/mapbox-gl.css' rel='stylesheet' /> | |
<link href='https://www.mapbox.com/base/latest/base.css' rel='stylesheet' /> | |
<link href='site.css' rel='stylesheet' /> | |
</head> | |
<body class='clip loading'> |