Add crs argument to the three cded functions

add an argument to be able to specify the projection and have the output reprojected. By default it should be bcalbers and cded is not. Otherwise the output of the cded functions do not play nicely with the other bcmaps spatial objects.

```r
ws <- bcdc_query_geodata("51f20b1a-ab75-42de-809d-bf415a0f9c62", crs = bcalb) %>%
filter( WATERSHED_GROUP_CODE == "PARS") %>%
collect() %>% st_as_sf()
dem.ws <- cded_raster(aoi = ws)
crs(dem.ws)
st_crs(ws)
```