trial <- st_read("C:\Users\vr235\Downloads\issuewithbufferusingsfpackage\TownVillCity1.shp")
trial <- st_transform(trial, 32644)

sel <- c(1,5,14)
geom <- st_geometry(trial[sel,])
buf <- st_buffer(geom, dist = 5000)
plot(buf, border = 'red')
plot(geom, add = TRUE)