R/output_get.R

In iotables: Reproducible Input-Output Economics Analysis, Economic and Environmental Impact Assessment with Empirical Data

#' @title Get an output vector
#' @description This is a wrapper function around the \code{\link{primary_input_get}} 
#' function. 
#' @param data_table A symmetric input-output table or use table retrieved 
#' by the  
#' \code{\link{iotable_get}} function.
#' @return A data frame with the vector of multipliers and the an 
#' auxiliary metadata column (for joining with other matrixes.)
#' @family iotables processing functions
#' @examples 
#' output_get ( data_table = iotable_get () )
#' @export 

output_get <- function ( data_table ) {  
  
  key_column <- as.character(unlist(data_table[,1]))
  
  possible_names <- c('output', 'output_bp', 'p1', 'P1')
  
  primary_input_get ( data_table = data_table,
                      primary_input = possible_names[
                        possible_names %in% key_column]
  )
}