`st_as_sf.owin` ignores CRS

[baddstats]

Describe the bug
A clear and concise description of what the bug is.

To Reproduce
It is easier for developers to help if they can reproduce the problem.
Could you please provide a minimal reproducible example?

If reporting a change from previous versions

Please read https://cran.r-project.org/web/packages/sf/news/news.html first.

Additional context
Add any other context about the problem here.

Paste the output of your `sessionInfo()` and `sf::sf_extSoftVersion()`

[baddstats]

The internal function st_as_sf.owin does not handle a crs argument.

Example:

library(spatstat)
library(sf)
W <- owin(c(470424, 480514), c(7714749, 7723160))
V <- st_as_sf(W, coords=c("x", "y"), crs="+proj=utm +zone=50 +south +datum=WGS84")
V

Printed output is sensible except that it says CRS: NA.

[baddstats]

I think the following edit would fix it:

st_as_sf.owin <- function(x, ..., crs=NULL) { st_sf(geom = st_as_sfc(x, ...), crs=crs) }

[edzer]

Thanks, Adrian!