R/leqtar_results.R

In ErikSchutte/leqtar: Linear eQTL analysis in R

#' leqtar_results
#'
#' Processes the results that are generated by the wrapper leqtar_analysis.
#' Calls helper functions to process all result files.
#'
#' @param arguments contains the input arguments.
leqtar_results <- function(arguments) {

  # Set paths.
  output_dir <- arguments$output
  output_data <- file.path( output_dir, "data", fsep = .Platform$file.sep)
  output_img <- file.path( output_dir, "images", fsep = .Platform$file.sep)
  output_tbl <- file.path( output_dir, "tables", fsep = .Platform$file.sep)

  # Create Genotype plots.
  leqtar_create_genotype_boxplots(arguments, output_data, output_img, output_tbl)

  # Create manhattan plots.
  leqtar_create_manhattan_plots(arguments, output_data, output_img)
}