How to manipulate the geometry of a shapefile polygon using sf in R

Question

I have two shapefile polygons, one with a defined CRS (shapefile A) and another with an undefined CRS (shapefile B). I have lat/long coordinates with geometries similar to t