How do I identify isolates and delete them in R Statnet

Question

How do I identify isolates and delete them in R Statnet?

Here is an example code.

g2<-network.initialize(10)
add.edge(g2,1,2)
add.edge(g2,2,3)
add.e