Croparea update

.buildlibrary

@@ -1,4 +1,4 @@
-ValidationKey: '35643700'
+ValidationKey: '35648872'
 AcceptedWarnings:
 - 'Warning: package ''.*'' was built under R version'
 - 'Warning: namespace ''.*'' is not available and has been replaced'

.gitignore

@@ -2,7 +2,6 @@
 .Rhistory
 .RData
 .Ruserdata
-.positai
 *.Rproj
 .Rproj.user
 .positai

CITATION.cff

@@ -3,7 +3,7 @@ message: If you use this software, please cite it using the metadata from this f
 type: software
 title: 'mrcommons: MadRat commons Input Data Library'
 version: 1.72.4
-date-released: '2026-08-10'
+date-released: '2026-08-13'
 abstract: Provides useful functions and a common structure to all the input data required
   to run models like MAgPIE and REMIND of model input data.
 authors:

DESCRIPTION

@@ -2,7 +2,7 @@ Type: Package
 Package: mrcommons
 Title: MadRat commons Input Data Library
 Version: 1.72.4
-Date: 2026-08-10
+Date: 2026-08-13
 Authors@R: c(
     person("Benjamin Leon", "Bodirsky", , "bodirsky@pik-potsdam.de", role = "aut"),
     person("Kristine", "Karstens", role = "aut"),

NAMESPACE

@@ -31,183 +31,147 @@ import(mrfaocore)
 import(mrlandcore)
 import(mstools)
 importFrom(countrycode,countrycode)
-importFrom(data.table,
-  as.data.table,
-  fread
-)
-importFrom(dplyr,
-  "%>%",
-  across,
-  arrange,
-  count,
-  distinct,
-  filter,
-  full_join,
-  group_by,
-  inner_join,
-  last,
-  left_join,
-  mutate,
-  mutate_all,
-  n,
-  recode,
-  relocate,
-  rename,
-  right_join,
-  select,
-  summarise
-)
+importFrom(data.table,as.data.table)
+importFrom(data.table,fread)
+importFrom(dplyr,"%>%")
+importFrom(dplyr,across)
+importFrom(dplyr,arrange)
+importFrom(dplyr,count)
+importFrom(dplyr,distinct)
+importFrom(dplyr,filter)
+importFrom(dplyr,full_join)
+importFrom(dplyr,group_by)
+importFrom(dplyr,inner_join)
+importFrom(dplyr,last)
+importFrom(dplyr,left_join)
+importFrom(dplyr,mutate)
+importFrom(dplyr,mutate_all)
+importFrom(dplyr,n)
+importFrom(dplyr,recode)
+importFrom(dplyr,relocate)
+importFrom(dplyr,rename)
+importFrom(dplyr,right_join)
+importFrom(dplyr,select)
+importFrom(dplyr,summarise)
 importFrom(hdf5r,h5file)
-importFrom(luscale,
-  getAggregationMatrix,
-  groupAggregate,
-  rename_dimnames
-)
-importFrom(madrat,
-  calcOutput,
-  metadataGFZ,
-  readSource,
-  regionscode,
-  toolAggregate,
-  toolConditionalReplace,
-  toolCountry2isocode,
-  toolCountryFill,
-  toolGetMapping,
-  toolNAreplace,
-  toolSplitSubtype,
-  toolSubtypeSelect
-)
-importFrom(magclass,
-  "getItems<-",
-  "getNames<-",
-  "getYears<-",
-  add_columns,
-  add_dimension,
-  as.magpie,
-  clean_magpie,
-  collapseDim,
-  collapseNames,
-  convergence,
-  dimOrder,
-  dimReduce,
-  dimSums,
-  getCPR,
-  getCells,
-  getCoords,
-  getItems,
-  getNames,
-  getRegions,
-  getSets,
-  getYears,
-  hasCoords,
-  magpie_expand,
-  mbind,
-  mselect,
-  new.magpie,
-  read.magpie,
-  read.report,
-  setCells,
-  setNames,
-  setYears,
-  time_interpolate,
-  where,
-  wrap
-)
-importFrom(magpiesets,
-  FRAnames,
-  addLocation,
-  findset,
-  reporthelper,
-  reportingnames
-)
+importFrom(luscale,getAggregationMatrix)
+importFrom(luscale,groupAggregate)
+importFrom(luscale,rename_dimnames)
+importFrom(madrat,calcOutput)
+importFrom(madrat,metadataGFZ)
+importFrom(madrat,readSource)
+importFrom(madrat,regionscode)
+importFrom(madrat,toolAggregate)
+importFrom(madrat,toolConditionalReplace)
+importFrom(madrat,toolCountry2isocode)
+importFrom(madrat,toolCountryFill)
+importFrom(madrat,toolGetMapping)
+importFrom(madrat,toolNAreplace)
+importFrom(madrat,toolSplitSubtype)
+importFrom(madrat,toolSubtypeSelect)
+importFrom(magclass,"getItems<-")
+importFrom(magclass,"getNames<-")
+importFrom(magclass,"getYears<-")
+importFrom(magclass,add_columns)
+importFrom(magclass,add_dimension)
+importFrom(magclass,as.magpie)
+importFrom(magclass,clean_magpie)
+importFrom(magclass,collapseDim)
+importFrom(magclass,collapseNames)
+importFrom(magclass,convergence)
+importFrom(magclass,dimOrder)
+importFrom(magclass,dimReduce)
+importFrom(magclass,dimSums)
+importFrom(magclass,getCPR)
+importFrom(magclass,getCells)
+importFrom(magclass,getCoords)
+importFrom(magclass,getItems)
+importFrom(magclass,getNames)
+importFrom(magclass,getRegions)
+importFrom(magclass,getSets)
+importFrom(magclass,getYears)
+importFrom(magclass,hasCoords)
+importFrom(magclass,magpie_expand)
+importFrom(magclass,mbind)
+importFrom(magclass,mselect)
+importFrom(magclass,new.magpie)
+importFrom(magclass,read.magpie)
+importFrom(magclass,read.report)
+importFrom(magclass,setCells)
+importFrom(magclass,setNames)
+importFrom(magclass,setYears)
+importFrom(magclass,time_interpolate)
+importFrom(magclass,where)
+importFrom(magclass,wrap)
+importFrom(magpiesets,FRAnames)
+importFrom(magpiesets,addLocation)
+importFrom(magpiesets,findset)
+importFrom(magpiesets,reporthelper)
+importFrom(magpiesets,reportingnames)
 importFrom(methods,new)
 importFrom(mstools,toolGetMappingCoord2Country)
-importFrom(ncdf4,
-  nc_close,
-  nc_open,
-  ncvar_get
-)
-importFrom(purrr,
-  map,
-  map2,
-  pmap,
-  walk
-)
-importFrom(quitte,
-  as.quitte,
-  inline.data.frame
-)
-importFrom(raster,
-  "res<-",
-  aggregate,
-  area,
-  as.matrix,
-  brick,
-  crs,
-  extent,
-  projectRaster,
-  raster,
-  res,
-  resample,
-  stack,
-  subset,
-  writeRaster
-)
-importFrom(readxl,
-  read_excel,
-  read_xlsx
-)
-importFrom(reshape2,
-  acast,
-  dcast,
-  melt
-)
+importFrom(ncdf4,nc_close)
+importFrom(ncdf4,nc_open)
+importFrom(ncdf4,ncvar_get)
+importFrom(purrr,map)
+importFrom(purrr,map2)
+importFrom(purrr,pmap)
+importFrom(purrr,walk)
+importFrom(quitte,as.quitte)
+importFrom(quitte,inline.data.frame)
+importFrom(raster,"res<-")
+importFrom(raster,aggregate)
+importFrom(raster,area)
+importFrom(raster,as.matrix)
+importFrom(raster,brick)
+importFrom(raster,crs)
+importFrom(raster,extent)
+importFrom(raster,projectRaster)
+importFrom(raster,raster)
+importFrom(raster,res)
+importFrom(raster,resample)
+importFrom(raster,stack)
+importFrom(raster,subset)
+importFrom(raster,writeRaster)
+importFrom(readxl,read_excel)
+importFrom(readxl,read_xlsx)
+importFrom(reshape2,acast)
+importFrom(reshape2,dcast)
+importFrom(reshape2,melt)
 importFrom(rlang,.data)
-importFrom(stats,
-  na.omit,
-  quantile,
-  reshape,
-  xtabs
-)
-importFrom(stringr,
-  str_detect,
-  str_extract,
-  str_sub
-)
-importFrom(terra,
-  app,
-  classify,
-  focal,
-  rast,
-  rasterize,
-  segregate,
-  subset,
-  terraOptions,
-  tmpFiles,
-  vect
-)
-importFrom(tidyr,
-  expand_grid,
-  matches,
-  pivot_longer,
-  starts_with,
-  unnest
-)
-importFrom(utils,
-  bibentry,
-  capture.output,
-  download.file,
-  head,
-  person,
-  read.csv,
-  read.csv2,
-  read.table,
-  tail,
-  unzip
-)
-importFrom(withr,
-  defer,
-  local_options,
-  local_tempdir
-)
+importFrom(stats,na.omit)
+importFrom(stats,quantile)
+importFrom(stats,reshape)
+importFrom(stats,xtabs)
+importFrom(stringr,str_detect)
+importFrom(stringr,str_extract)
+importFrom(stringr,str_sub)
+importFrom(terra,app)
+importFrom(terra,classify)
+importFrom(terra,focal)
+importFrom(terra,rast)
+importFrom(terra,rasterize)
+importFrom(terra,segregate)
+importFrom(terra,subset)
+importFrom(terra,terraOptions)
+importFrom(terra,tmpFiles)
+importFrom(terra,vect)
+importFrom(tidyr,expand_grid)
+importFrom(tidyr,matches)
+importFrom(tidyr,pivot_longer)
+importFrom(tidyr,starts_with)
+importFrom(tidyr,unnest)
+importFrom(utils,bibentry)
+importFrom(utils,capture.output)
+importFrom(utils,download.file)
+importFrom(utils,head)
+importFrom(utils,person)
+importFrom(utils,read.csv)
+importFrom(utils,read.csv2)
+importFrom(utils,read.table)
+importFrom(utils,tail)
+importFrom(utils,unzip)
+importFrom(withr,defer)
+importFrom(withr,local_options)
+importFrom(withr,local_tempdir)
 importFrom(zoo,na.locf)

R/calcClimateClass.R

@@ -30,8 +30,10 @@ calcClimateClass <- function(datasource = "koeppen") {
     getNames(x) <- gsub(" ", "_", tolower(getNames(x)))
 
     if (grepl("ipccReduced", datasource)) {
-      reduceIPCC  <- toolGetMapping("IPCC2IPCCreduced.csv", type = "sectoral", where = "mappingfolder")
-      x           <- toolAggregate(x, reduceIPCC, from = "ipcc", to = datasource, dim = 3, partrel = TRUE)
+      reduceIPCC  <- toolGetMapping("IPCC2IPCCreduced.csv", type = "sectoral",
+                                    where = "mappingfolder")
+      x           <- toolAggregate(x, reduceIPCC, from = "ipcc",
+                                   to = datasource, dim = 3, partrel = TRUE)
     }
 
   } else {