Add precision variable to geojson_list()

[ChrisJones687]

Description

Added precision argument to geojson_rw() with default to NULL to avoid changing behavior when the argument isn't used. Then used this change to add precision to geojson_list() specifically for all sp class calls. I haven't tested this for non-sp classes yet.

Related Issue

related to #141 for the case when converting from sp classes to geoJSON.

Example

  x_coord <- c(-114.345703125, -114.345703125, -106.61132812499999, -106.61132812499999,-114.345703125)
  y_coord <- c(39.436192999314095, 43.45291889355468, 43.45291889355468, 39.436192999314095, 39.436192999314095)
  coords <- cbind(x_coord, y_coord)
  poly <- Polygon(coords)
  polys <- Polygons(list(poly), 1)
  sp_poly <- SpatialPolygons(list(polys))
  geojson_list(sp_poly, geometry = "polygon", precision = 4)

test added for precision for sp polygons works with other sp classes

[sckott]

thanks @ChrisJones687 having a look

[sckott]

Thanks for this, but did you run the tests that you added? It fails because you have test_that("text ..."){} instead of test_that("text ...", {})

[sckott]

I think we need to add here that this works up to a point, that point being the value of getOption("digits"). If you want more digits than precision allows, then fiddle with options(digits = <some number>)

[sckott]

can you add an example or two of using the parameter?

[ChrisJones687]

can you add an example or two of using the parameter?

Examples added and adjusted language on the precision argument.

[sckott]

thanks! a few things to fix, but i'll do that after merge

[github-actions]

This pull request has been automatically locked. If you believe you have found a related problem, please file a new issue (with a reprex: https://reprex.tidyverse.org) and link to this issue.