I have a sf layer in R, in real life from a shape file, created externally, but here a super simple line. All I want is to be able to add a arrow head to my lines but geom_sf() doesn't seem to have this capability. Is there any other way around? I want to keep the plot in ggplot as I am just adding one extra layer to existing maps which are set up in ggplot (the actual maps will have several other sf layers with polygons, points and lines). Basically all I want is to add an arrow head like you can in geom_path. Any ideas?
What I have:
library(sf)
library(ggplot2)
line = st_sfc(st_linestring(rbind(c(30,30), c(40,40))), crs = 28355)
ggplot(line)+geom_sf()+coord_sf(datum = 28355)

What I would like, but still using my shapefile data, and proper map projections etc.
dat <- data.frame(x = c(30,40), y = c(30,40))
ggplot(dat, aes(x, y)) + geom_path(arrow = arrow())

Created on 2021-05-06 by the reprex package (v0.3.0)