polyline_wkt loses precision

[SymbolixAU]

library(sf)
library(googlePolylines)

coords <- matrix(c(-37.1234567, -37.765321, 144.1234567, 144.7654321), ncol = 2)
sf_line <- sf::st_sf(geometry = sf::st_sfc(sf::st_linestring(coords)))

polyline_wkt(encode(sf_line))[1, ]
# [1] "LINESTRING (-37.1234 144.123, -37.7653 144.765)"

[SymbolixAU]

precision defined and set as 12. Should this be user defined?

library(sf)
library(googlePolylines)

coords <- matrix(c(-37.1234567, -37.765321, 144.1234567, 144.7654321), ncol = 2)
sf_line <- sf::st_sf(geometry = sf::st_sfc(sf::st_linestring(coords)))

polyline_wkt(encode(sf_line))[1, ]
# [1] "LINESTRING (-37.1234474182 144.123443604, -37.7653198242 144.765426636)"

[SymbolixAU]

Or perhaps using std::to_string() is the more appropriate solution

library(sf)
library(googlePolylines)

coords <- matrix(c(-37.1234567, -37.765321, 144.1234567, 144.7654321), ncol = 2)
sf_line <- sf::st_sf(geometry = sf::st_sfc(sf::st_linestring(coords)))

polyline_wkt(encode(sf_line))[1, ]
# [1] "LINESTRING (-37.123447 144.123444, -37.765320 144.765427)"