Improved views
This commit is contained in:
parent
d6e61438fd
commit
70c70cd7f8
@ -30,8 +30,8 @@ matchesForTeam <- function(input, output) {
|
||||
getFilteredResultsForTeam(input),
|
||||
extensions = 'Buttons',
|
||||
options = list(
|
||||
lengthMenu = list(c(5, 10, -1), c('5', '10', '20', 'All')),
|
||||
pageLength = 20,
|
||||
lengthMenu = list(c(5, 10, -1), c('5', '10', 'All')),
|
||||
pageLength = 10,
|
||||
searching = FALSE
|
||||
)
|
||||
)
|
||||
|
@ -6,7 +6,6 @@
|
||||
source("Server/Results.R")
|
||||
source("Server/DataProcessor.R")
|
||||
source("Server/SummaryStatistics.R")
|
||||
# source("Server/InteractiveMapStatistics.R")
|
||||
|
||||
# Server logic
|
||||
server <- function(input, output) {
|
||||
@ -19,7 +18,4 @@ server <- function(input, output) {
|
||||
balanceBetweenTeams(input, output)
|
||||
balancePercentage(input, output)
|
||||
resultsWithPagination(input, output)
|
||||
|
||||
# Tab 3
|
||||
# interactiveMapStatistics(input, output)
|
||||
}
|
||||
|
@ -19,18 +19,6 @@ teamsSidebarPanel <- function() {
|
||||
end = max_date_to,
|
||||
min = min_date_from,
|
||||
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
30
UI/UI.R
@ -18,31 +18,31 @@ ui <- navbarPage(
|
||||
teamSidebarPanel()
|
||||
),
|
||||
column(9,
|
||||
fluidRow(
|
||||
column(
|
||||
6,
|
||||
tabsetPanel(
|
||||
tabPanel(
|
||||
"Charts",
|
||||
h2("Matches balance charts"),
|
||||
fluidRow(
|
||||
column(6,
|
||||
wellPanel(
|
||||
plotOutput("balance_for_team")
|
||||
)
|
||||
)
|
||||
)
|
||||
),
|
||||
column(6,
|
||||
column(
|
||||
6,
|
||||
wellPanel(
|
||||
verbatimTextOutput("Test")
|
||||
)
|
||||
)
|
||||
)
|
||||
),
|
||||
tabPanel(
|
||||
"Summary",
|
||||
tableOutput("summary_statistics")
|
||||
|
||||
),
|
||||
tabPanel(
|
||||
"All matches",
|
||||
dataTableOutput("matches_for_team")
|
||||
)
|
||||
)
|
||||
)
|
||||
,
|
||||
fluidRow(
|
||||
column(
|
||||
12,
|
||||
DT::dataTableOutput("matches_for_team")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
Loading…
Reference in New Issue
Block a user