This errors
library(mapdeck)
df <- roads
encode(df[1:200, ])
But this works (the internals)
library(mapdeck)
df <- roads
encode(df[1:200, ])
geomCol <- googlePolylines:::sfGeometryColumn(df[1:200, ])
lst <- googlePolylines:::rcpp_encodeSfGeometry(df[[geomCol]], FALSE)