R/matchColClasses.R

In rossholmberg/holmberg: A personal package by Ross Holmberg

# matchColClasses
#' Match the column classes of one data frame to another. Useful before calling `rbind`.
#' Note: this is just an easy way to use `getColClasses` and `applyColClasses` in a single step.
#'
#' @param master A data frame or data table acting as MASTER.
#' @param student A data frame or data table, will "learn" from the master.
#' @keywords dataframe, datatable, columns, classes
#' @export
#' @import data.table
#' @name matchColClasses
#' @return A data frame, with column classes adjusted as necessary.

matchColClasses <- function( master, student ) {
    
    if( identical( colnames( master ), colnames( student ) ) ) {
        
        return( holmberg::applyColClasses( student, holmberg::getColClasses( master ) ) )
        
    } else {
        
        stop( "Column names don't match. Repair, perhaps with matchColNames() first." )
        
    }
    
}