Playing around with random networks in Shiny