s441472/TPD-InternationalFootballResults-ShinyApp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improved views

Browse Source
This commit is contained in:
Jakub Wajs 2019-06-14 22:56:24 +02:00
parent d6e61438fd
commit 70c70cd7f8
4 changed files with 24 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Server/Results.R
View File

@ -30,8 +30,8 @@ matchesForTeam <- function(input, output) {
getFilteredResultsForTeam(input), getFilteredResultsForTeam(input),
extensions = 'Buttons', extensions = 'Buttons',
options = list( options = list(
lengthMenu = list(c(5, 10, -1), c('5', '10', '20', 'All')), lengthMenu = list(c(5, 10, -1), c('5', '10', 'All')),
pageLength = 20, pageLength = 10,
searching = FALSE searching = FALSE
) )
) )

4
Server/Server.R
View File

@ -6,7 +6,6 @@
source("Server/Results.R") source("Server/Results.R")
source("Server/DataProcessor.R") source("Server/DataProcessor.R")
source("Server/SummaryStatistics.R") source("Server/SummaryStatistics.R")
# source("Server/InteractiveMapStatistics.R")
# Server logic # Server logic
server <- function(input, output) { server <- function(input, output) {
@ -19,7 +18,4 @@ server <- function(input, output) {
balanceBetweenTeams(input, output) balanceBetweenTeams(input, output)
balancePercentage(input, output) balancePercentage(input, output)
resultsWithPagination(input, output) resultsWithPagination(input, output)
# Tab 3
# interactiveMapStatistics(input, output)
} }

12
UI/SidebarPanel.R
View File

@ -19,18 +19,6 @@ teamsSidebarPanel <- function() {
end = max_date_to, end = max_date_to,
min = min_date_from, min = min_date_from,
max = max_date_to) max = max_date_to)
#dropdownButton(
# label = "Tournament types",
# circle = FALSE,
#radioButtons("tournament_all",
# "Select:",
# choices = c("All", "None"),
# selected = "All"),
# checkboxGroupInput("tournament_type",
# "Tournament type:",
# choices = tournament_types,
# selected = tournament_types)
#)
) )
) )
) )

30
UI/UI.R
View File

@ -18,31 +18,31 @@ ui <- navbarPage(
teamSidebarPanel() teamSidebarPanel()
), ),
column(9, column(9,
fluidRow(
column(
6,
tabsetPanel( tabsetPanel(
tabPanel( tabPanel(
"Charts", "Charts",
h2("Matches balance charts"), h2("Matches balance charts"),
fluidRow(
column(6,
wellPanel( wellPanel(
plotOutput("balance_for_team") plotOutput("balance_for_team")
) )
)
)
), ),
column(6, column(
6,
wellPanel( wellPanel(
verbatimTextOutput("Test")
)
)
)
),
tabPanel(
"Summary",
tableOutput("summary_statistics") tableOutput("summary_statistics")
)
), )
tabPanel( )
"All matches", ,
dataTableOutput("matches_for_team") fluidRow(
column(
12,
DT::dataTableOutput("matches_for_team")
) )
) )
) )