R/check_traces_in_df.R

In richelbilderbeek/razzo: The Error if Nature is MBD

#' Check if all the traces' names are in the names of the data frames
#' @param traces_names names of the traces
#' @param df a data frame
#' @author Richèl J.C. Bilderbeek
#' @examples
#' df <- data.frame(my_name = 3.14)
#' check_traces_in_df("my_name", df)
#' @export
check_traces_in_df <- function(traces_names, df) {
  if (!all(traces_names %in% names(df))) {
    msg <- "Not all 'traces_names' are present in data frame. \n"
    for (traces_name in traces_names) {
      if (!traces_name %in% names(df)) {
        msg <- c(msg, paste0("'", traces_name, "' is absent. \n"))
      }
    }
    stop(paste0(msg, collapse = ""))
  }
}