It would appear that you are piping only the set_sfc function to st_set_crs and not the actual network. I believe R executes the pipe before the + in a line.
set_sfc
st_set_crs
+