R/get_var_from_vars.R

In cmsafops: Tools for CM SAF NetCDF Data

get_var_from_vars <- function(varnames, var) {
  var_default <- varnames[!varnames %in% DIM_NAMES]

  if (toupper(var) %in% toupper(var_default)) {
    var <- var_default[which(toupper(var) == toupper(var_default))]
  } else {
    warning("Variable '", var, "' not found. ",
            "Variable '", var_default[1], "' will be used instead.")
    var <- var_default[1]
  }

  return(var)
}