Fixes issue #4

Author: blasee

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: fetchR
 Type: Package
 Title: Calculate fetch in New Zealand
-Version: 1.2-0
+Version: 1.2-1
 Date: 2017-01-31
 Authors@R: person("Blake", "Seers", role = c("aut", "cre"),
     email = "blake.seers@gmail.com")

R/fetch.R

@@ -101,7 +101,7 @@ fetch = function(lat, lon, max_dist = 300, n_bearings = 9,
 
   # Create polygon (approximating a circle) with a given radius. These vertices
   # are used for creating the end points for the fetch bearings.
-  d_bff = gBuffer(centre_point_proj, width = 30000, quadsegs = n_bearings)
+  d_bff = gBuffer(centre_point_proj, width = max_dist * 1000, quadsegs = n_bearings)
 
   # Subset NZ to incorporate only polygons within the radius to speed up 
   # computation times.