How to make R tool SeqNet generate interactive plot?

how to make seqnet sample code like this one generate an interactive graph?

p <- 100 # Number of nodes (genes) in the network.
n <- 100 # Number of samples to generate.
network <- random_network(p) # Create a random network of size p.
network <- gen_partial_correlations(network) # Generate weights.

g <- network