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
output$network_plot<-renderPlot({plot(g)})