feat(r/seconadb): Implement dplyr::select() for sedonadb_dataframe

[paleolimbot]

Work in progress!

library(dplyr)
library(sedonadb)

df <- sd_read_parquet("/Volumes/data/overture/data/theme=addresses/")

df |> 
  head(5) |> 
  dplyr::select(id, foo = geometry)
#> ┌──────────────────────────────────────┬──────────────────────────────────────────────┐
#> │                  id                  ┆                      foo                     │
#> │                 utf8                 ┆                   geometry                   │
#> ╞══════════════════════════════════════╪══════════════════════════════════════════════╡
#> │ 91152fa5-e94c-473b-8ca3-db1b435db1e8 ┆ POINT(-82.02807518358573 35.915740329639796) │
#> ├╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌┼╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌┤
#> │ a78b78b2-2fe4-40c2-93fb-62b920a55588 ┆ POINT(-82.02461430685557 35.91545007745678)  │
#> ├╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌┼╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌┤
#> │ 3999803b-3d8b-482e-9e9c-8615e95e4a98 ┆ POINT(-82.02456162057896 35.91560423507976)  │
#> ├╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌┼╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌┤
#> │ 22d1a97f-3a42-4409-a450-6306d31eb296 ┆ POINT(-82.02474456705185 35.91461463349115)  │
#> ├╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌┼╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌┤
#> │ a8eb1a20-b270-4f19-81f7-fc3ce5963903 ┆ POINT(-82.02440566475514 35.91355359846674)  │
#> └──────────────────────────────────────┴──────────────────────────────────────────────┘