R/add_tech_intensity.R

In altay-oz/WIODnet: Creates long tables from WIOD data and carry network calculations

#' Join the tech intensity data frame to the yearly WIOD
#'
#' @description Join the created technology intensity data frame to the
#'     yearly raw WIOD wide table so that similar country and technology
#'     intensity manufacturing industies can be aggregated.
#'
#' @param yearly.raw yearly raw data from the downloaded zip such as WIOT2011_October16_ROW.RData
#'
#' @param isic parameter to be given for the aggregation of the industries.
#' 
#' @return data frame
#'
#' @import dplyr
#'
#' @import magrittr
#' 

addTechIntensity <- function(yearly.raw, isic) {
    
    industry.RNr <- getTechIntensity(yearly.raw, isic)
    
    ## changing the IndustryCode column wihtin the main df
    yearly.raw %<>% left_join(industry.RNr, yearly.raw, by = c("RNr"))

    ## cleaning the data frame
    yearly.raw %<>% select(-IndustryCode) %>% rename(IndustryCode = NewIndustryCode)

    return(list(yearly.raw, industry.RNr))
}