diff --git a/app/main.R b/app/main.R index 2a26f03..406a36a 100644 --- a/app/main.R +++ b/app/main.R @@ -9,6 +9,7 @@ box::use( box::use( app/view/info[mod_info_ui], + app/view/acknowledgements[mod_acknowledgements_ui], app/view/honeybee/honeybee_main[honeybee_ui, honeybee_server], app/view/grassland/grassland_main[grassland_main_ui, grassland_main_server], ) @@ -74,6 +75,14 @@ ui <- function(id) { class = "container-fluid index-info", mod_info_ui("info") ), + ## Acknowledgements - main menu item ---- + nav_panel( + title = "Acknowledgements", + value = "acknowledgements", + icon = shiny$icon("circle-info"), + class = "container-fluid index-info", + mod_acknowledgements_ui("info") + ), ## Digital Twins - main menu item ---- nav_menu( title = "Digital Twins", diff --git a/app/view/acknowledgements.R b/app/view/acknowledgements.R new file mode 100644 index 0000000..acd1555 --- /dev/null +++ b/app/view/acknowledgements.R @@ -0,0 +1,52 @@ +box::use( + shiny[NS, fillPage, div, p, moduleServer, tagList, tags], + bslib[card, card_header, card_body], +) + +#' @export +mod_acknowledgements_ui <- function(id) { + ns <- NS(id) + card( + id = ns("acknowledgement"), + class = "mt-2 mx-md-3 card-shadow", + card_header( + tags$div( + class = "row d-flex justify-content-between align-items-center my-1", + tags$div( + class = "col-md-8 col-sm-12 me-auto", + tags$h5("Acknowledgements"), + ), + ) + ), + card_body( + id = ns("acknowledgement"), + tags$div( + class = "row d-flex justify-content-between", + tags$p("This project has received funding from the European Union's Horizon Europe research and innovation programme under grant agreement No 101057437 (BioDT project, https://doi.org/10.3030/101057437)."), + tags$p("We acknowledge the EuroHPC Joint Undertaking and CSC – IT Center for Science, Finland for awarding this project access to the EuroHPC supercomputer LUMI, hosted by CSC – IT Center for Science and the LUMI consortium, through Development Access calls."), + tags$p("Additionally, we wish to acknowledge CSC – IT Center for Science for Rahti and Pouta services."), + tags$p("Credits to the main development contributors"), + tags$ul( + tags$style(" + ul li { + margin-bottom: 10px; + margin-left: 20px; + } + "), + tags$li("Tomas Martinovic, IT4I"), + tags$li("Ondrej Salamon, IT4I"), + tags$li("Allan Souza, University of Helsinki"), + tags$li("Simon Rolph, UKCEH"), + tags$li("Kata Sara-aho, CSC"), + ), + ) + ) + ) +} + +#' @export +mod_acknowledgements_server <- function(id, r) { + moduleServer(id, function(input, output, session) { + ns <- session$ns + }) +} diff --git a/app/view/honeybee/beekeeper_control.R b/app/view/honeybee/beekeeper_control.R index 7177938..9a37bad 100644 --- a/app/view/honeybee/beekeeper_control.R +++ b/app/view/honeybee/beekeeper_control.R @@ -46,10 +46,10 @@ beekeeper_control_ui <- function(id) { class = "row d-flex justify-content-between", tags$h5("Instructions"), tags$ol( - style = "margin-left: 20px; margin-top: 15px;", tags$style(" ol li { margin-bottom: 10px; + margin-left: 20px; } "), tags$li("Select point on the map"),