Clean data for wbpip compatibility (high level)

Clean data for wbpip compatibility (high level)

Usage

pd_wbpip_clean(lf, cpfw)

Arguments

lf

list of dataframe returned by pd_dlw_clean()

cpfw

data frame with Price framework data for country/survey in df. It is loaded with get_country_pfw(df, pfw). pfw is loaded in pipload::pip_load_aux("pfw")

Value

list with data.tables

Examples

md   <- pipload::pip_load_dlw(country = "PRY", 2012)
#> ! root_dir is not defined. Directory paths will lack network-drive root
#> directory
#> Error: [ENOENT] Failed to search directory '/pip_ingestion_pipeline/pc_data/cache/clean_survey_data': no such file or directory
pfw  <- pipload::pip_load_aux("pfw")
#> ! root_dir is not defined. Directory paths will lack network-drive root
#> directory
#> Error: [ENOENT] Failed to search directory '/pip_ingestion_pipeline/pc_data/cache/clean_survey_data': no such file or directory
cpfw <- get_country_pfw(md, pfw)
#> Error in uniqueN(pfw, by = keyVar): object 'pfw' not found
md   <- pd_split_alt_welfare(md, cpfw)
#> Error in pd_split_alt_welfare(md, cpfw): object 'cpfw' not found
x    <- pd_dlw_clean(md, cpfw)
y    <- pd_wbpip_clean(lf = x, cpfw = cpfw)[[1]]
summary(y$weight)
#> Error in y$weight: $ operator is invalid for atomic vectors


gd   <- pipload::pip_load_dlw("CHN", 2015)
#> ! root_dir is not defined. Directory paths will lack network-drive root
#> directory
#> Error: [ENOENT] Failed to search directory '/pip_ingestion_pipeline/pc_data/cache/clean_survey_data': no such file or directory
cpfw <- get_country_pfw(gd, pfw)
#> Error in uniqueN(pfw, by = keyVar): object 'pfw' not found
gd   <- pd_split_alt_welfare(gd, cpfw)
#> Error in pd_split_alt_welfare(gd, cpfw): object 'cpfw' not found
x    <- pd_dlw_clean(gd, cpfw)
y    <- pd_wbpip_clean(lf = x, cpfw = cpfw)[[1]]
y[, unique(area)]
#> Error in unique(area): object 'area' not found

gd   <- pipload::pip_load_dlw("ARE", 2019)
#> ! root_dir is not defined. Directory paths will lack network-drive root
#> directory
#> Error: [ENOENT] Failed to search directory '/pip_ingestion_pipeline/pc_data/cache/clean_survey_data': no such file or directory
cpfw <- get_country_pfw(gd, pfw)
#> Error in uniqueN(pfw, by = keyVar): object 'pfw' not found
gd   <- pd_split_alt_welfare(gd, cpfw)
#> Error in pd_split_alt_welfare(gd, cpfw): object 'cpfw' not found
x <- pd_dlw_clean(gd, cpfw)
y <- pd_wbpip_clean(lf = x, cpfw = cpfw)[[1]]
y[, unique(area)]
#> Error in unique(area): object 'area' not found