ciaran/football-competitiveness
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v1.1 fully mobile compatible (scrolling spaced, coefficient plots removed & radar plots visible)
Build and Push Docker Image / build (push) Successful in 1m10s
Details

Browse Source
This commit is contained in:
ciaran
2026-08-21 17:59:54 +01:00
parent d0a9d448b0
commit c083cc1099
3 changed files with 128 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ui.R
+73 -57
View File
@@ -235,7 +235,7 @@ ui <- fluidPage(
#### Basic profiles characteristics ####
tags$header(id = "basic_profiling", class="colourheader3",
tags$div(class="paddeddiv",style="position: relative;",
p(style="margin-top: 5px;",paste0(characteristics_of_leagues_grouped_by_performance))
p(paste0(characteristics_of_leagues_grouped_by_performance))
)
),
@@ -371,34 +371,42 @@ ui <- fluidPage(
br(),
br(),
tags$div(ID = "regression_current_year_plot",
div(class="scrolly",
tags$figure(class="sticky",style=("order: 0; display: flex; flex-direction: column;"),
tags$h4(style="text-align: center;", "Coefficient estimates for regression"),
plotlyOutput("regression_coefficients_current_plot", height = "100%")
),
tags$article(
lapply(seq_along(regression_current_year_titles), function(i) {
div(
class = "regression_current_year_plot text-article",
`data-width` = "1",
`data-index` = i - 1,
p(
tags$u(
paste0(
" ",
regression_current_year_titles[i],
" "
)
),
br(),
HTML(regression_current_year_text[[i]])
)
)
})
)
)
conditionalPanel(
condition = "input.screen_width >= 768",
tags$div(
id = "regression_current_year_plot",
div(
class = "scrolly",
tags$figure(
class = "sticky",
style = "order: 0; display: flex; flex-direction: column;",
tags$h4(
style = "text-align: center;",
"Coefficient estimates for regression"
),
plotlyOutput(
"regression_coefficients_current_plot",
height = "100%"
)
),
tags$article(
lapply(seq_along(regression_current_year_titles), function(i) {
div(
class = "regression_current_year_plot text-article",
`data-width` = "1",
`data-index` = i - 1,
p(
tags$u(paste0(" ", regression_current_year_titles[i], " ")),
br(),
HTML(regression_current_year_text[[i]])
)
)
})
)
)
)
),
br(),
@@ -415,7 +423,10 @@ ui <- fluidPage(
br(),
br(),
tags$div(ID = "regression_next_year_plot",
conditionalPanel(
condition = "input.screen_width >= 768",
tags$div(ID = "regression_next_year_plot",
div(class="scrolly",
tags$figure(class="sticky",style=("order: 0; display: flex; flex-direction: column;"),
tags$h4(style="text-align: center;", "Coefficient estimates for regression"),
@@ -443,6 +454,7 @@ ui <- fluidPage(
})
)
)
)
),
br(),
@@ -459,34 +471,38 @@ ui <- fluidPage(
br(),
br(),
tags$div(ID = "regression_competition_plot",
div(class="scrolly",
tags$figure(class="sticky",style=("order: 0; display: flex; flex-direction: column;"),
tags$h4(style="text-align: center;", "Coefficient estimates for regression"),
plotlyOutput("regression_coefficients_competition_plot", height = "100%")
),
tags$article(
lapply(seq_along(regression_competition_titles), function(i) {
div(
class = "regression_competition_plot text-article",
`data-width` = "1",
`data-index` = i - 1,
p(
tags$u(
paste0(
" ",
regression_competition_titles[i],
" "
)
),
br(),
HTML(regression_competition_text[[i]])
conditionalPanel(
condition = "input.screen_width >= 768",
tags$div(ID = "regression_competition_plot",
div(class="scrolly",
tags$figure(class="sticky",style=("order: 0; display: flex; flex-direction: column;"),
tags$h4(style="text-align: center;", "Coefficient estimates for regression"),
plotlyOutput("regression_coefficients_competition_plot", height = "100%")
),
tags$article(
lapply(seq_along(regression_competition_titles), function(i) {
div(
class = "regression_competition_plot text-article",
`data-width` = "1",
`data-index` = i - 1,
p(
tags$u(
paste0(
" ",
regression_competition_titles[i],
" "
)
),
br(),
HTML(regression_competition_text[[i]])
)
)
)
})
)
)
})
)
)
)
),
br(),