R/source_annotations.r

In Display-Lab/bit-stomach: Bit Stomach

# Source the annotations for the situation into anno env.
#' @title Source Annotations
#' @description Source the annotations.r file which contain the fucntions to apply to the
#'   data in order to make inferences about performers from the data.
#' @param path Path too annotations R file.
#' @return An environment with the evaluated the contents of the annotations.R
#' @note Annotation functions will be passed two arguements: data and col_spec
#'   The col_spec is a list of three character vectors: id_cols, ordering_cols, perf_cols
#' @importFrom rlang abort
source_annotations <- function(path=NULL) {
  anno_env <- new.env(parent = .BaseNamespaceEnv)

  if(!is.null(path)) {
    if(file.exists(path)){
      source(path, local = anno_env)
    } else {
      rlang::abort(message=BS$ERROR_INVALID_ANNOTATION_PATH)
    }
  }

  return(anno_env)
}