R/checknames.R

In soilcarbon: Tools to Analyze Soil Carbon Database Created by Powell Center Working Group

#' checknames
#'
#' Check the names of different levels in the dataset to make sure they match, used in dataQC
#'
#' @param data soilcarbon data
#' @param name specific heirarchial name, ie. dataset_name
#' @param tabs the tabs that will be checked, default is all
#' @export
#'

checknames<-function(data, name, tabs){

  cat("\t", name, "...")

  level_names<-getnames(data, name)
  level_names<-level_names[intersect(names(level_names), tabs)]
  names_compared<-comparenames(level_names)
  error<-0

  if(F %in% names_compared){
    if (name == "layer") {
      message("\nNote... '", name, "' names do not match at different levels, see below:")
      } else {
    message("\nWARNING... '", name, "' names do not match at different levels, see below:")
    error<-error+1}
    for (i in 1:length(level_names)){
      cat("\t","\t", name, "names in", names(level_names)[i], " tab... \n")
      if (length(level_names[[i]])>0){
      for (j in 1:length(level_names[[i]])){
        level_name<-as.character(level_names[[i]][j])
        if (F %in% lapply(level_names, FUN=function(x) level_name %in% x)){
        cat("\t\t\t", level_name, "\n")}
      }
      } else cat("\t\t NONE \n")
    }

    }else cat("OK\n")
  return(error)

  }