R/household_column_get.R

Defines functions household_column_get

Documented in household_column_get

#' Return Final Household Expenditure
#'  
#' @param data_table A symmetric input output table, a use table or
#' a supply table.
#' @return The column containing final household expenditure. If not found
#' \code{NULL} is returned.
#' @importFrom dplyr mutate across
#' @family iotables processing functions
#' @examples 
#' household_column_get(iotable_get (source = 'germany_1995'))
#' @export

household_column_get <- function(data_table) {
 
 household_column <- household_column_find(data_table)
 fn_na_to_null <- function(x) ifelse (is.na(x),0,x)
 
 if ( ! is.null( household_column) ) {
    data_table %>% 
       select ( 1, household_column ) %>%
       mutate ( across (2, fn_na_to_null) )
 } else { return(NULL) }
 
}
rOpenGov/iotables documentation built on Jan. 26, 2024, 3:06 a.m.