How to select edge randomly from graph in R?

I have a regular graph and wanna delete randomly edge from graph. How to select edges randomly till I can delete?

library(igraph)
g = sample_k_regular(10,3)