R/modul_startside.R

In Rapporteket/nra: Resultattjenester for Nasjonalt register for analinkontinens

#' UI-modul for startsiden til NRA sin Rapporteket-app
#'
#' @export
#'
startside_ui <- function(id){
  ns <- NS(id)
  shiny::bootstrapPage(
    div(
      class = "container",
      div(
        class = "panel panel-default",
        div(
          class = "panel-heading" , style = "background-color : #E0E0E0 ",
          h2('Velkommen til Rapporteket - NRA', align='center')),
        div(
          class = "panel-body",style = "background-color:#F0F0F0",
          div(
            class="panel-text",
            br(),
            h4(
              'Du er nå inne på Rapporteket for NRA, registerets
              resultattjeneste. Disse sidene inneholder en samling av figurer
              og tabeller som viser resultater fra registeret. På hver av sidene
              kan man gjøre utvalg i menyene til venstre. Alle resultater er
              basert på ferdigstilte registreringer. Merk at data er hentet
              direkte fra registerets database. Dette medfører at nyere data
              ikke er kvalitetssikret ennå.'),
            h4(
              'Du kan se på resultater for eget sykehus, nasjonale data og eget
              sykehus sett opp mot landet for øvrig. Hvis ikke annet oppgis så
              gjøres alle datovalg basert på operasjonsdato. Alle figurer og
              tabeller kan lastes ned.'),
            br(),

            h4(tags$b(tags$u('Innhold i de ulike fanene:'))),
            div(
              class = "container", style ="margin-right:(@gutter / 10)" ,
              h4(tags$b('Fordelinger '), 'viser fordelinger (figur/tabell) av
              ulike variabler. Man kan velge hvilken variabel man vil se på, og
                 man kan gjøre ulike filtreringer.'),
              br(),
              h4(tags$b('Gjennomsnitt/andeler før og etter operasjon '), 'viser
              gjennomsnitt eller andel av en variabel. Kan vise enten kun
              pre-data, pre og 1-årsoppfølgingsdata, eller pre-og 1 og
                 5-årsoppfølgingsdata'),
              br(),
              h4(tags$b('Indikatorer '), 'viser registerets
                 kvalitetsindikatorer'),
              br(),
              h4(tags$b('Datadump '), 'gir mulighet til å laste ned din egen
                 avdelings registreringer.'),
              br(),
              div(id = ns("SC1"),
                  h4(tags$b('Verktøy '), 'inneholder administrative
                 verktøy og er kun tilgjengelig for registerledelsen.')),
              br(),
              h4(tags$b('Administrative tabeller '), 'er en samling oversikter
                 over antall registreringer.')
            ),
            br(),
            br(),
            div(
              class="container",
              fixedRow(
                column(
                  width = 4, offset = 1,
                  h4('Oversikt over registerets kvalitetsindikatorer og
                     resultater finner du på www.kvalitetsregistre.no:',
                     a("NRA",
                       href="https://www.kvalitetsregistre.no/registers/541/resultater"),
                     target="_blank", align='center')),
                column(
                  width = 4,offset = 2,
                  h4(
                    'Mer informasjon om registeret finnes på NRA sin ',
                    a("hjemmeside",
                      href="https://unn.no/fag-og-forskning/medisinske-kvalitetsregistre/nra-norsk-register-for-analinkontinens", target="_blank"),
                    align='center')
                )
              )
            )
          )
        )
      ))
  )
}

#' Server-modul for startsiden til NRA sin Rapporteket-app
#'
#' @export
#'
startside_server <- function(id, usrRole){
  moduleServer(
    id,
    function(input, output, session) {
      observeEvent(shiny::req(usrRole),{
        if (shiny::req(usrRole()) != "SC") {
          shinyjs::hide("SC1")
        } else {
          shinyjs::show("SC1")
        }
      }
      )
    }
  )
}