Some refactoring

Server/Results.R

@@ -86,11 +86,7 @@ balancePercentage <- function(input, output) {
 # Summary statistics
 summaryStatistics <- function(input, output) {
   output$summary_statistics <- renderTable(
-    formattable(result <- goalsOverallSummary(getFilteredResultsForTeam(input), input$team),
-                list(
-                  Home = color_tile("white", "orange")
-                  )
-                ),
+    goalsOverallSummary(getFilteredResultsForTeam(input), input$team),
     width = '100%',
     rownames = TRUE
   )

UI/BalanceComponent.R

@@ -1,17 +0,0 @@
-# Balance component
-
-balanceComponent <- function()
-{
-  tabsetPanel(
-    tabPanel("Bar graph",
-             wellPanel(
-             plotOutput("balance")
-           )
-    ),
-    tabPanel("Pie chart",
-             wellPanel(
-             plotOutput("balancePieChart")
-           )
-    )
-  )
-}

UI/UI.R

@@ -4,7 +4,6 @@
 
 # Import files
 source("UI/SidebarPanel.R")
-source("UI/BalanceComponent.R")
 
 # UI
 ui <- navbarPage(
@@ -62,13 +61,18 @@ ui <- navbarPage(
       ),
       column(9,
              fluidRow(
+               h2("Matches balance charts"),
                column(
                  6,
-                 h2("Matches balance charts"),
-                 balanceComponent()
+                 wellPanel(
+                   plotOutput("balance")
+                   )
                ),
                column(
-                 6
+                 6,
+                 wellPanel(
+                   plotOutput("balancePieChart")
+                 )
                )
              ),
              fluidRow(

app.R

@@ -6,6 +6,8 @@
 #
 #    http://shiny.rstudio.com/
 #
+# Credits: Jakub Wajs 2019
+#
 
 library(shiny)
 library(dplyr)
@@ -17,7 +19,6 @@ library(scales)
 library(tmap)
 library(tmaptools)
 library(leaflet)
-library(formattable)
 
 # Load files
 source("Data/Loader.R")