stars -> sf for affine raster

gistfile1.txt

library(stars)
library(sf)
geomatrix = system.file("tif/geomatrix.tif", package = "stars")
x = st_stars(geomatrix)
st_dimensions(x)
##   from to  offset delta                        geotransform
## x    1 20 1841002   1.5 1841000, 1.5, -5, 1144000, -5, -1.5
## y    1 20 1144003  -1.5 1841000, 1.5, -5, 1144000, -5, -1.5
##                                               refsys point values
## x +proj=utm +zone=11 +datum=WGS84 +units=m +no_defs   TRUE   NULL
## y +proj=utm +zone=11 +datum=WGS84 +units=m +no_defs   TRUE   NULL
library(sf)
## Linking to GEOS 3.5.1, GDAL 2.1.2, proj.4 4.9.3, lwgeom 2.3.1 r15264
s = st_as_sf(x, as_points = FALSE)
plot(s, axes =TRUE)