R/modul_samledok.R

In Rapporteket/muskel: Resultatrapporter for Muskelregisteret

#' UI-modul for Samledokumenter-fane i NORGAST sin shiny-app på Rapporteket
#'
#' Kun til bruk i Shiny
#'
#' @return Modulfunksjoner til Samledokumenter
#'
#' @export
samledok_ui <- function(id){
  ns <- shiny::NS(id)

  shiny::sidebarLayout(
    shiny::sidebarPanel(
      width = 3,
      id = ns("id_samledok_panel"),
      shiny::conditionalPanel(
        condition = paste0("input['", ns('tabs'), "'] == 'samledok_egen' |
                                          input['", ns('tabs'), "'] == 'samledok_landet'"),
        shiny::dateRangeInput(inputId=ns("datovalg"), label = "Dato fra og til",
                              min = '2014-01-01', language = "nb",
                              max = Sys.Date(),
                              start  = lubridate::floor_date(lubridate::today() -
                                                               lubridate::years(1),
                                                             unit = "year"),
                              end = Sys.Date(), separator = " til ")),
      shiny::conditionalPanel(
        condition = paste0("input['", ns('tabs'), "'] == 'kvartalsrapport'"),
        shiny::selectInput(inputId = ns("valgtAar"), label = "Frem til år",
                           choices = if (Sys.Date() %>% as.character() %>% substr(6,7) %>%
                                         as.numeric() >= 4) {
                             rev(2014:as.numeric(format(Sys.Date(), '%Y')))
                           } else {
                             rev(2014:(as.numeric(format(Sys.Date(), '%Y'))-1))
                           }),
        uiOutput(outputId = ns('kvartal'))),
      uiOutput(outputId = ns('valgtShus_ui')),
      tags$hr(),
      actionButton(ns("reset_input"), "Nullstill valg")
    ),
    mainPanel(
      tabsetPanel(
        id= ns("tabs"),
        tabPanel("Samledokument med egen avd. mot landet forøvrig",
                 value = "samledok_egen",
                 downloadButton(ns("lastNed_saml"), "Last ned samledokument")),
        tabPanel("Samledokument med nasjonale tall", value = "samledok_landet",
                 downloadButton(ns("lastNed_saml_land"), "Last ned samledokument")),
        tabPanel("Kvartalsrapport for din avdeling", value = "kvartalsrapport",
                 downloadButton(ns("lastNed_kvartal"), "Last ned kvartalsrapport")))
    )
  )
}

#' Server-modul for Samledokumenter-fane i NORGAST sin shiny-app på Rapporteket
#'
#' Kun til bruk i Shiny
#'
#' @return Modulfunksjoner til Samledokumenter
#'
#' @export
samledok_server <- function(id, reshID, RegData, userRole,
                            hvd_session, BrValg){
  moduleServer(
    id,
    function(input, output, session) {

      observeEvent(input$reset_input, {
        shinyjs::reset("id_samledok_panel")
      })

      observe(
        if (userRole != 'SC') {
          shinyjs::hide(id = 'valgtShus_ui')
        })

      output$valgtShus_ui <- renderUI({
        ns <- session$ns
        selectInput(inputId = ns("valgtShus"), label = "Velg sykehus",
                    choices = BrValg$sykehus, multiple = TRUE)
      })

      output$kvartal <- renderUI({
        ns <- session$ns
        if (!is.null(input$valgtAar)) {
          selectInput(
            inputId = ns("kvartal_verdi"),
            label = "Til og med (avsluttet) kvartal",
            choices = if (
              input$valgtAar == format(Sys.Date(), '%Y')) {
              ant_kvartal <- match(Sys.Date() %>% as.Date() %>%
                                     lubridate::floor_date(unit = 'quarter') %>%
                                     as.character() %>% substr(6,10),
                                   c('04-01', '07-01', '10-01'))
              rev(setNames(paste0(input$valgtAar, c('-04-01', '-07-01',
                                                    '-10-01'))[1:ant_kvartal],
                           paste0(1:ant_kvartal, '. kvartal')))
            } else {
              rev(setNames(paste0(c(input$valgtAar, input$valgtAar,
                                    input$valgtAar, as.numeric(input$valgtAar) + 1),
                                  c('-04-01', '-07-01', '-10-01', '-01-01')),
                           paste0(1:4, '. kvartal')))
            })
        }
      })

      contentFile2 <- function(file, baseName, datoFra, datoTil, reshID=0,
                               valgtShus='') {

        src <- system.file(paste0(baseName, ".Rnw"), package = "norgast")
        tmpFile <- tempfile(paste0(baseName, Sys.Date()), fileext = '.Rnw')

        owd <- setwd(tempdir())
        on.exit(setwd(owd))
        file.copy(src, tmpFile, overwrite = TRUE)

        pdfFile <- knitr::knit2pdf(tmpFile)
        file.copy(pdfFile, file)
      }

      output$lastNed_saml <- downloadHandler(
        filename = function(){
          paste0("samleDok", format(Sys.time(), format = "%Y-%m-%d-%H%M%S"), ".pdf")
        },
        content = function(file){
          contentFile2(
            file, "NorgastSamleDokShiny", input$datovalg[1],
            input$datovalg[2], reshID = reshID,
            valgtShus = if (!is.null(input$valgtShus)) {input$valgtShus} else {""})
        }
      )

      output$lastNed_saml_land <- downloadHandler(
        filename = function(){
          paste0("samleDokLandet", format(Sys.time(), format = "%Y-%m-%d-%H%M%S"),
                 ".pdf")
        },
        content = function(file){
          contentFile2(file, "NorgastSamleDokLandetShiny", input$datovalg[1],
                       input$datovalg[2], reshID = reshID)
        }
      )

      output$lastNed_kvartal <- downloadHandler(
        filename = function(){
          paste0("Kvartalsrapp",
                 RegData$Sykehusnavn[match(reshID, RegData$AvdRESH)],
                 format(Sys.time(), format = "%Y-%m-%d-%H%M%S"), ".pdf")
        },
        content = function(file){
          contentFile2(
            file, "NorgastKvartalsrapportShiny",
            datoTil = input$kvartal_verdi, reshID = reshID,
            valgtShus = if (!is.null(input$valgtShus)) {input$valgtShus} else {""})

        }
      )

      shiny::observe({
        if (rapbase::isRapContext()) {

          shinyjs::onclick(
            "lastNed_saml",
            rapbase::repLogger(
              session = hvd_session,
              msg = "NORGAST: samledokument nedlastet"
            )
          )

          shinyjs::onclick(
            "lastNed_saml_land",
            rapbase::repLogger(
              session = hvd_session,
              msg = "NORGAST: samledokument med nasjonale talll nedlastet"
            )
          )
          shinyjs::onclick(
            "lastNed_kvartal",
            rapbase::repLogger(
              session = hvd_session,
              msg = "NORGAST: Kvartalsrapport nedlastet"
            )
          )
        }
      })
    }
  )
}