Convert simulated tracks into a sf-object

used in simulate_id()

sim_to_sf(SIM, id_nr, type)

Examples

#> Source Code:
sim_to_sf
#> function (SIM, id_nr, type) 
#> {
#>     SIM %>% as_tibble() %>% st_as_sf(coords = c("x", "y")) %>% 
#>         st_set_crs(value = data[[id_nr]]@info$projection) %>% 
#>         mutate(type = type, id = sample_ids[[id_nr]])
#> }
#> <bytecode: 0x55a2e1cc62b8>
#> <environment: namespace:fftidy>