R/make_table_DQ_regCountYearly.R

In Rapporteket/norspis2: Plots and Tables of Results and Data Quality in NorSpis

#' Make table with number of registrations per department per year
#'
#' The data must be filtered first, to contain the registration types
#' you want to present, if not the table will show a mix of registration types.
#'
#' @param RegDataNatVal data with own rows representing national values
#'
#' @return flexable of number of registrations per year per department
#' @export
#'
#' @examples

make_table_DQ_regCountYearly <- function(RegDataNatValFiltered){

  #make tab
  RegData_NatVal_overview <- RegDataNatValFiltered %>%
    group_by(AvdNavn, Year)%>%
    summarize(counts = sum(!is.na(PasientID))) %>%
    tidyr::spread(key = Year, value = counts) %>%
    rowwise() %>%
    mutate("Total" = sum(c_across(), na.rm = T))

  #Adding "Nasjonal" at bottom
  ##We first remove the row and then bind it back to the table
  #remove national:
  RegData_NatVal_overview_without_national <-  RegData_NatVal_overview %>%
    subset(AvdNavn !="Nasjonal")
  #extract national
  RegData_NatVal_overview_only_national <-
    RegData_NatVal_overview %>% #only national numbers
    subset(AvdNavn =="Nasjonal")
  #add national back again
  RegData_NatVal_overview <-
    rbind(RegData_NatVal_overview_without_national,
          RegData_NatVal_overview_only_national ) #hospitals AND nationa
  #Call it SUM instead of "Nasjonal":
  RegData_NatVal_overview$AvdNavn <-
    dplyr::recode(RegData_NatVal_overview$AvdNavn,
                  "Nasjonal"="Total")

  RegData_NatVal_overview <- RegData_NatVal_overview %>%
    rename(" "= "AvdNavn")#remove AvdNavn as title,first column (Set it empty)

  #present tab as ft

  #this is just the border we plot with flextable::vline() further down
  border <- officer::fp_border()

  ft3 <- flextable::flextable(RegData_NatVal_overview) %>%
    flextable::hline(i=13, part = "body", border=border)%>%
    flextable::colformat_int(na_str = "-")%>%#remove NA from visual
    flextable::autofit()

  ft3

  # Print/save as .png and .docx
  # flextable::save_as_image(ft3, path = "F:/Nreg2012_2019start.png" )
  # flextable::save_as_docx("Nreg2012_2019start" = ft3,
  # path = "F:/Nreg2012_2019start.docx")

}