R/RegDelayReport.R

In Rapporteket/rapgen: Multi-registry reports and results at Rapporteket

#' Make report data on registration delays across OpenQReg registries
#'
#' @param years Integer Vector of years to group delays
#' @param registryKeyNames String Vector of registry names corresponding to the
#' key used for within registry packages
#' @param registrationFormNames String Vector of registration form names where
#' dates are to be collected from. Elements must correspond to
#' \emph{registryKeyNames}
#' @param peculiarities Logical vector, TRUE for none-OpenQReg registries.
#' Elements must correspond to \emph{registryKeyNames}
#' @return regDelays Data frame of median delays
#' @seealso This function use \code{\link{RegDelay}}
#' @export

RegDelayReport <- function(years, registryKeyNames, registrationFormNames,
                           peculiarities) {


  for (i in (1:length(registryKeyNames))) {
    if (i == 1) {
      regDelays <- RegDelay(years = years, registryName = registryKeyNames[i],
                            registrationFormName = registrationFormNames[i],
                            peculiarity = peculiarities[i])
    }
    else {
      regDelays <- rbind(regDelays,
                         RegDelay(years = years,
                                  registryName = registryKeyNames[i],
                                  registrationFormName =
                                    registrationFormNames[i],
                                  peculiarity = peculiarities[i]))
    }
  }

  # order data frame by sum days ascending
  regDelays <- regDelays[order(regDelays$sumDays), ]

  return(regDelays)
}