Format R code

Author: lulunac27a

app.R

@@ -1,49 +1,60 @@
 # import Shiny library
 library(shiny)
 # define UI component
-ui <- fluidPage(titlePanel("Simple Bingo Game in R Shiny"), sidebarLayout(sidebarPanel(actionButton("start",
-  "Start Game")  # button to start game
-, textOutput("calledNumber")  # called number output
-), mainPanel(tableOutput("bingoGrid")  # bingo grid table output
-)))
+ui <- fluidPage(
+    titlePanel("Simple Bingo Game in R Shiny"),
+    sidebarLayout(
+        sidebarPanel(
+            actionButton("start", "Start Game"), # button to start game
+            textOutput("calledNumber") # called number output
+        ),
+        mainPanel(
+            tableOutput("bingoGrid") # bingo grid table output
+        )
+    )
+)
 
 server <- function(input, output, session) {
-  # define server component
-  called_numbers <- 0
-  called_number <- reactiveValues(value = 0)
-  number_list <- sample(1:75, 75, replace = FALSE)
-
-  observeEvent(input$start, {
+    # define server component
     called_numbers <- 0
-    called_number$value <- 0
-    invalidateLater(1000, session)
-    # when start button is pressed generate random numbers
-    b <- sample(1:15, 5, replace = FALSE)
-    i <- sample(16:30, 5, replace = FALSE)
-    n <- sample(31:45, 5, replace = FALSE)
-    g <- sample(46:60, 5, replace = FALSE)
-    o <- sample(61:75, 5, replace = FALSE)
-    output$bingoGrid <- renderTable({
-      # render bingo grid table
-      bingo_table <- matrix(c(b, i, n, g, o), nrow = 5,
-        ncol = 5, byrow = FALSE)  # bingo table
-      colnames(bingo_table) <- c("B", "I", "N", "G", "O")  # column names
-      bingo_table
+    called_number <- reactiveValues(value = 0)
+    number_list <- sample(1:75, 75, replace = FALSE)
+
+    observeEvent(input$start, {
+        called_numbers <- 0
+        called_number$value <- 0
+        invalidateLater(1000, session)
+        # when start button is pressed generate random numbers
+        b <- sample(1:15, 5, replace = FALSE)
+        i <- sample(16:30, 5, replace = FALSE)
+        n <- sample(31:45, 5, replace = FALSE)
+        g <- sample(46:60, 5, replace = FALSE)
+        o <- sample(61:75, 5, replace = FALSE)
+        output$bingoGrid <- renderTable({
+            # render bingo grid table
+            bingo_table <- matrix(
+                c(b, i, n, g, o),
+                nrow = 5,
+                ncol = 5,
+                byrow = FALSE
+            ) # bingo table
+            colnames(bingo_table) <- c("B", "I", "N", "G", "O") # column names
+            bingo_table
+        })
     })
-  })
 
-  observe({
-    invalidateLater(1000, session)  # update called number every second
-    called_numbers <<- called_numbers + 1
-    isolate({
-      called_number$value <- number_list[called_numbers]
+    observe({
+        invalidateLater(1000, session) # update called number every second
+        called_numbers <<- called_numbers + 1
+        isolate({
+            called_number$value <- number_list[called_numbers]
+        })
     })
-  })
 
-  output$calledNumber <- renderText({
-    # render called number text
-    called_number$value
-  })
+    output$calledNumber <- renderText({
+        # render called number text
+        called_number$value
+    })
 }
 
-shinyApp(ui = ui, server = server)  # run the Shiny web app server
+shinyApp(ui = ui, server = server) # run the Shiny web app server