Re-create CRS for roxel data

Reprex:
remotes::install_github("luukvdmeer/sfnetworks", quiet = TRUE)
library(sfnetworks)
roxel
#> Simple feature collection with 851 features and 2 fields
#> Geometry type: LINESTRING
#> Dimension:     XY
#> Bounding box:  xmin: 7.522594 ymin: 51.94151 xmax: 7.546705 ymax: 51.9612
#> old-style crs object detected; please recreate object with a recent sf::st_crs()
#> Geodetic CRS:  WGS 84
#> old-style crs object detected; please recreate object with a recent sf::st_crs()
#> Registered S3 method overwritten by 'cli':
#>   method     from         
#>   print.boxx spatstat.geom
#> # A tibble: 851 x 3
#>    name           type                                                  geometry
#>  * <chr>          <fct>                                         <LINESTRING [°]>
#>  1 Havixbecker S~ residen~                (7.533722 51.95556, 7.533461 51.95576)
#>  2 Pienersallee   seconda~ (7.532442 51.95422, 7.53236 51.95377, 7.53209 51.953~
#>  3 Schulte-Bernd~ residen~ (7.532709 51.95209, 7.532823 51.95239, 7.532869 51.9~
#>  4 <NA>           path     (7.540063 51.94468, 7.539696 51.94479, 7.539466 51.9~
#>  5 Welsingheide   residen~                 (7.537673 51.9475, 7.537614 51.94562)
#>  6 <NA>           footway  (7.543791 51.94733, 7.54369 51.94686, 7.543751 51.94~
#>  7 <NA>           footway                  (7.54012 51.94478, 7.539931 51.94514)
#>  8 <NA>           path     (7.53822 51.94546, 7.538131 51.94549, 7.538027 51.94~
#>  9 <NA>           track    (7.540063 51.94468, 7.540338 51.94468, 7.540591 51.9~
#> 10 <NA>           track    (7.5424 51.94599, 7.54205 51.94629, 7.541967 51.9463~
#> # ... with 841 more rows
^{Created on 2021-08-26 by the reprex package (v2.0.0)}
luukvdmeer / sfnetworks

Re-create CRS for roxel data #167
