R/checkKeyword.R

In wStockhausen/wtsUtilities: Collection of miscellaneous utility functions developed by William Stockhausen

#'
#' @title Check string against keyword and stop if unequal
#'
#' @description Function to check string against a keyword and stop if unequal.
#'
#' @param chk - string to check
#' @param key - key word to check against
#'
#' @return Nothing.
#' 
#' @details None.
#'
#' @export
#'
checkKeyword<-function(chk,key){
    if (chk!=key){
        cat('Expected key word "',key,'" but got "',chk,'"\n');
        cat("Aborting...");
        stop();
    }
}