R/aggrLevel.R

In pik-piam/validation: MAgPIE validation library

.aggrLevel<-function(data){
  if(!is.magpie(data)) stop("Data has to be a magpie object")
  data("luqueries", package = "luscale", envir=environment())
  if(all(getRegions(data)=="GLO")){
    data_level="glo"
  } else if(ncells(data)==length(getRegionNames()) && all(getRegions(data) %in% getRegionNames())){
    data_level="reg"
  } else if(ncells(data)==5 && all(getRegions(data) %in% c("ASIA","LAM","MAF","OECD","REF"))){
    data_level="SSP"
  } else if (ncells(data)==59199){
    data_level="cell"
  } else if(all(getRegions(data)%in% c(as.vector(luqueries$spatial$cell_iso[,"iso"]),as.vector(luqueries$spatial$iso_reg[,"iso"])))){
    data_level="country"
  } else{
    data_level<-"reg"
  }
  return(data_level)
}