R/addHeadingsFCL.R

Defines functions addHeadingsFCL

Documented in addHeadingsFCL

#' addHeadingsFCL
#'
#' Function to add headings to fcl codes in order to have 4 digits fcl codes
#' 
#' @export addHeadingsFCL 


addHeadingsFCL = function(measuredItemFCL){ 
  ifelse(nchar(measuredItemFCL) == 2, 
         paste0("00",measuredItemFCL, sep = ""),
         ifelse(nchar(measuredItemFCL) == 3,
                paste0("0",measuredItemFCL, sep = ""),
                measuredItemFCL))
}
SWS-Methodology/faoswsLoss documentation built on Oct. 5, 2018, 4:23 p.m.