Group 1: Exercise 3

Create an app that displays four copies of this module on a single page. Verify that each module is independent.

ui <- fluidPage(
    randomUI("num1"),
    randomUI("num2"),
    randomUI("num3"),
    randomUI("num4")
)

server <- function(input, output, session) {
    randomServer("num1")
    randomServer("num2")
    randomServer("num3")
    randomServer("num4")
}

shinyApp(ui, server)