R/report_differences.R

In clinCompare: Dataset Comparison with 'CDISC' Validation for Clinical Trial Data

#' Generate a Report of Differences Found in Dataset Comparison
#'
#' @description
#' Creates a formatted report summarizing all differences found between two data frames,
#' including column-level and value-level differences.
#'
#' @param variable_diffs A data frame or list detailing the differences found in variables.
#' @param observation_diffs A data frame or list detailing the differences found in observations.
#' @return A structured report of the differences, typically a list or a data frame.
#' @keywords internal

report_differences <- function(variable_diffs, observation_diffs) {
  report <- list()
  
  if (!is.null(variable_diffs)) {
    report$variable_differences <- variable_diffs
  }
  
  if (!is.null(observation_diffs)) {
    report$observation_differences <- observation_diffs
  }
  
  report
}