`geoarrow()` drops CRS sometimes?

[paleolimbot]

# convert geometry to geoarrow encoding
  geom <- as_geoarrow(
    table_sorted$geometry,
    schema_override = geoarrow_schema_wkb()
  )
  # TODO: this shouldn't drop CRS but it does
  geom <- geoarrow(geom)