-
Notifications
You must be signed in to change notification settings - Fork 1
/
maxadmin.r
33 lines (27 loc) · 731 Bytes
/
maxadmin.r
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#' return max admin level for a country
#'
#' initialy gadm but could be other sources too
#'
#' #todo vectorise
#'
#' @param country a character vector of country names
#' @param datasource data source, initial default 'gadm'
#'
#'
#' @examples
#'
#' maxlevel <- maxadmin("nigeria")
#'
#' @return integer vector of max admin levels
#' @export
maxadmin <- function(country,
datasource = 'gadm') {
path <- system.file(package="afriadmin","/external")
# check and convert country names to iso codes
iso3c <- country2iso(country)
allfiles <- list.files(path)
countryfiles <- allfiles[ substr(allfiles,1,3)==iso3c ]
levs <- as.numeric( substr(countryfiles,8,8) )
lev_hi <- max(levs)
lev_hi
}