R/mod_02navi.R

In DiakGit/karttasovellus: Huono-osaisuus Suomessa verkkosovellus

#' 02navi UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_02navi_ui <- function(id){
  ns <- NS(id)
  tagList(
    HTML('<a class="sr-only sr-only-focusable" href="#maincontent">Skip to main</a>'),
    tags$header(
      tags$div(class = "navbar navbar-expand-lg navbar-light navbar-fixed-top navbar-xyz navbar-light", role="navigation",
               tags$div(class = "container",
                        tags$a(class="navbar-brand ", role="brand", href = "#",
                                             tags$img(src = "https://www.diak.fi/wp-content/themes/diak/dist/images/diak-logo-1.svg",
                                                      style = "height: 20px; padding-right: 0px;",
                                                      alt = "logo")
                                                      ),
                                            HTML('<button class="navbar-toggler" type="button" data-toggle="collapse" data-target="#navbarResponsive" aria-controls="navbarResponsive" aria-expanded="false" aria-label="Avaa valikko">
                                                     <span class="navbar-toggler-icon"></span>
                                                 </button>'),
                                             tags$div(role = "navigation", class = "collapse navbar-collapse justify-content-between", id="navbarResponsive",
                                                      tags$ul(class = "navbar-nav ml-auto",
                                                              tags$li(class = "nav-item",
                                                                      tags$a(class="nav-link", href="#ohje", "Ohje")
                                                                      ),
                                                              tags$li(class = "nav-item",
                                                                      tags$a(class="nav-link", href="#indikaattorivertailu", "Indikaattorivertailu")
                                                              ),
                                                              tags$li(class = "nav-item",
                                                                      tags$a(class="nav-link", href="#zipcode", "Postinumeroalueet")
                                                              ),
                                                              tags$li(class = "nav-item",
                                                                      tags$a(class="nav-link", href="#alueprofiili", "Luo alueprofiili")
                                                              ),
                                                              tags$li(class = "nav-item",
                                                                      tags$a(class="nav-link", href="#info", "Lisätietoja")
                                                              ),
                                                              tags$li(class = "nav-item",
                                                                      tags$a(class="nav-link", href="#saavutettavuus", "Saavutettavuusseloste")
                                                              )
                                                              )
                        ))
    )),
          tags$html(HTML('<main id="maincontent">')),
                tags$h2("", id = "alku"),
                tags$div(class = "container_1280", 
                         tags$div(class = "row",
                                  tags$div(class = "col-lg-8",
                                           tags$h1(id = "content", "Huono-osaisuus Suomessa"),
                                           tags$p(class = "lead",
                                                  "Karttasovelluksessa voit tarkastella erilaisia huono-osaisuuden osoittimia sekä luoda profiileja alueista. Indikaattorivertailussa on kolme aluetasoa: hyvinvointialueet, seutukunnat ja kunnat. Postinumerotason tarkastelulle on oma osionsa."),
                                           tags$h2(id = "ohje", "Näin käytät sovellusta"),
                                           tags$p(
                                             tags$a(href = "#indikaattorivertailu", "Muuttujien tarkasteluun"), "ja", 
                                             tags$a(href = "#alueprofiili", "alueprofiilien laatimiseen"), 
                                             "on omat valikkonsa"),
                                           tags$p(
                                           tags$strong("Indikaattorivertailun"),
                                           tags$em("valitse muuttujaluokka"), "-valikosta voit säädellä haluatko katsoa huono-osaisuuden summatietoja vai tarkemmin kunkin huono-osaisuuden ulottuvuuden osoittimia.", tags$em("Valitse muuttuja"),"-valikosta voit valita tarkemman osoittimen ja", tags$em("valitse aluetaso"),"-valikosta aluetason. ", tags$br(),"Voit myös valita, näkyykö piste-, kartta- ja aikasarjakuviossa:"
                                           ),
                                           tags$ul(
                                             tags$li("kaikki valitun tason alueet,"),
                                             tags$li("valittu alue ja sen naapurit, vai"),
                                             tags$li("valitun hyvinvointialueen/seutukunnan kunnat")
                                           ),
                                           tags$p("Karttakuva, sekä aikasarja-, piste- ja ginikerroin -kuviot päivittyvät",tags$em("Päivitä kuvat")," nappia painamalla. Voit myös valita kartan tyypin. Oletuksena oleva vuorovaikutteinen kartta mahdollistaa zoomaamisen sekä kartan tarkastelun koko ruudulla. Staattinen kartta sen sijaan huomioi saavutettavuusdirektiivin vaatimukset.",tags$br(),
                                                  "Aikasarjakuvion jälkeen löytyvä gini-kerroin näytetään vähintään viidestä kunnasta koostuvien hyvinvointialueiden tasolla ja se kertoo alueiden sisäisestä eriarvoisuudesta. Mitä suurempi lukema on, sitä suuremmat erot alueen kuntien välillä on valitussa muuttujassa.", tags$br(),
                                                  tags$strong("Postinumerotarkastelussa"), "voit tarkastella postinumerotasoista huono-osaisuutta kuvastavaa tietoa. Tarkastelu toimii teknisesti samalla lailla kuin indikaattorivertailussa.", tags$br(),
                                                  tags$strong("Alueprofiilin"), "täytyy valita vain aluetaso sekä alue. Alueprofiili sisältää aina kaikkien osoittimien tiedot sekä valitulta alueelta että alueen rajanaapureista, sekä niiden aikasarjakuviot. Lisäksi alueprofiilissa esitetään kunkin osoittimen korkein ja matalin arvo.", tags$br(),
                                                  tags$a(href = "https://www.youtube.com/playlist?list=PLX8L6VZCYbFIzAqc4InxFEbP0SmfOrDzL", "Katso opastusvideot sivuston käytöstä!")),
                                           tags$p("Jos haluat viitata karttasivustoon tekstissäsi, käytä lähdeviitteenä:",
                                                  tags$em("Diakonia-ammattikorkeakoulu (i.a.)"),"ja lähdeluettelossa:", 
                                                  tags$em("Diakonia-ammattikorkeakoulu (i.a.) Huono-osaisuus Suomessa –karttasivusto. Saatavilla pp.kk.vuosi www.diak.fi/eriarvoisuus")),
                                           tags$p("Indikaattorit ja muuttujat on muodostettu vuosien 2018-2020 tilastojen keskiarvosta vuosivaihtelun minimoimiseksi, ja suhteuttamalla arvo keskimmäiseen eli mediaanihyvinvointialueeseen/-seutukuntaan/-kuntaan vertailun helpottamiseksi. Mitä suurempi lukema on, sitä huonompi alueen tilanne on. Aikasarjoissa lukemat vuodesta 2010 alkaen kolmen vuoden liukuvina keskiarvoina.",
                                                  tags$a(href = "https://www.diak.fi/kumppanille-ja-kehittajalle/kehittamistyokalut/huono-osaisuus-suomessa-karttasivusto/#73053a2b", 
                                                         "Lue lisää Diakin sivuilta!"))
                                           ),
                                  tags$div(class = "col-lg-4",
                                           tags$div(style = "padding-top: 20px;"),
                                                    tags$div(class = "col-sm",
                                                             tags$html(HTML('
<div class="card">
  <div class="card-body" >
    <strong class="card-title">Kysy lisää karttasivustosta ja sen käytöstä!</strong>
    <p class="card-text">Erityisasiantuntija Sakari Kainulainen, <br/>Diakonia-ammattikorkeakoulu</p>
    <a href="mailto:sakari.kainulainen@diak.fi" class="card-link">sakari.kainulainen@diak.fi</a><br/>
    <code>040 8696018</code>
    </div>
    </div>')),
                                                             tags$div(style = "padding-top: 30px;"),
                                                             tags$a(href = "https://ec.europa.eu/regional_policy/fi/funding/erdf/", 
                                                                    tags$img(src = "www/app_eu.png",
                                                                             class="rounded mx-auto d-block",
                                                                             style="height: 160px;",
                                                                             alt = "Euroopan unionin lippu, jonka alla teksti: Euroopan unioni, Euroopan aluekehitysrahasto"))),
                                                             tags$a(href = "https://www.rakennerahastot.fi", 
                                                                    tags$img(src = "www/app_vipu.png", 
                                                                             class="rounded mx-auto d-block",
                                                                             style="height: 90px; padding-top: 20px;",
                                                                             alt = "Rakennerahastot.fi -verkkopalvelun logo")),
                                                             tags$a(href = "https://thl.fi/fi/web/hyvinvoinnin-ja-terveyden-edistamisen-johtaminen/osallisuuden-edistaminen/heikoimmassa-asemassa-olevien-osallisuus", 
                                                                    tags$img(src = "www/app_sokra.png", 
                                                                             class="rounded mx-auto d-block",
                                                                             style="height: 100px;padding-top: 20px;", 
                                                                             alt = "Sosiaalisen osallisuuden edistämisen koordinaatiohankeen Sokran logo")),
                                                                    tags$a(href = "https://tutkittutieto.fi", 
                                                                    tags$img(src = "www/app_diak.png", 
                                                                             class="rounded mx-auto d-block",
                                                                             style="height: 80px;padding-top: 20px;", 
                                                                             alt = "Diakonia-ammattikorkeakoulun logo")),
                                                             tags$a(href = "https://tutkittutieto.fi", 
                                                                    tags$img(src = "www/app_teema.jpg", 
                                                                             class="rounded mx-auto d-block",
                                                                             style="height: 110px; padding-top: 20px;", 
                                                                             alt = "Tutkitun tiedon teemavuoden logo"))
                                  )))
  )
}
    
#' 02navi Server Functions
#'
#' @noRd 
mod_02navi_server <- function(id){
  moduleServer( id, function(input, output, session){
    ns <- session$ns
 
  })
}
    
## To be copied in the UI
    
## To be copied in the server