R/stitch.R

In chriscardillo/stitchr: For Putting Files Together

#' Single function for stitching together data from disparate sources
#'
#' @importFrom dplyr %>%
#'
#' @param file_path path to the directory of files
#' @param mapping_path path to the .yml mapping file, including the file name
#' @param file_type the type of file to compile - no . needed!
#' @param with_unmatched if TRUE, will return a list with both the compiled files in 'matched_files' and a tibble of unmatched files in 'unmatched_files'
#'
#' @return a compiled dataframe of all files that were able to be successfully matched
#' 
#' @export

sr_stitch <- function(file_path = ".", mapping_path, file_type = "csv", with_unmatched = FALSE){
  
  import <- sr_import(file_path, type = file_type)
  
  mapping <- sr_mapping(mapping_path)
  
  match <- sr_match(import, mapping)
  
  cleanup <- sr_cleanup(match, mapping) 
  
  if(nrow(match$unmatched_files) > 0){
    warning(
      paste0("Some files were unable to be matched: ", 
             paste0(match$unmatched_files %>% distinct() %>% pull(), collapse = ", "))
      )
    
  } 
  
  
  if(with_unmatched){
    
    with_unmatched <- list(matched_files = sr_compile(cleanup, mapping),
                           unmatched_files = match$unmatched_files)
    
    return(with_unmatched)
    
  } else {
    
    return(sr_compile(cleanup, mapping))
    
  }
  
}