diff --git a/R/adjust_inflation.R b/R/adjust_inflation.R index 78f7517..1b67561 100644 --- a/R/adjust_inflation.R +++ b/R/adjust_inflation.R @@ -31,16 +31,17 @@ adjust_inflation <- function(comland, refYear, refMonth){ #This isn't working right now - using downloaded file # temp <- tempfile() # download.file("http://download.bls.gov/pub/time.series/wp/wp.data.3.ProcessedFoods", temp) - inflate <- data.table::as.data.table(read.delim(here::here('data-raw', 'wp.data.3.ProcessedFoods'))) + #inflate <- data.table::as.data.table(read.delim(comlandr::wp.data.3.ProcessedFoods)) #unlink(temp) - inflate[, series_id := gsub(" ", "", inflate[, series_id])] - deflate <- inflate[series_id == "WPU0223", ] - deflate[, MONTH := as.numeric(substr(period, 2, 3))] - data.table::setnames(deflate, c('year', 'value'), c('YEAR', 'PPI')) - deflate <- deflate[, list(YEAR, MONTH, PPI)] - + # inflate[, series_id := gsub(" ", "", inflate[, series_id])] + # deflate <- inflate[series_id == "WPU0223", ] + # deflate[, MONTH := as.numeric(substr(period, 2, 3))] + # data.table::setnames(deflate, c('year', 'value'), c('YEAR', 'PPI')) + # deflate <- deflate[, list(YEAR, MONTH, PPI)] + #Set yearly deflator to 0 instead of 13 to match unknown month designation + deflate <- comlandr::deflate deflate[MONTH == 13, MONTH := 0] deflate.base <- deflate[YEAR == refYear & MONTH == refMonth, PPI] diff --git a/data-raw/create_deflate.R b/data-raw/create_deflate.R new file mode 100644 index 0000000..85c8551 --- /dev/null +++ b/data-raw/create_deflate.R @@ -0,0 +1,12 @@ +#Area for all species +library(data.table); library(usethis); library(here) + +inflate <- data.table::as.data.table(read.delim(here::here('data-raw', 'wp.data.3.ProcessedFoods'))) + +inflate[, series_id := gsub(" ", "", inflate[, series_id])] +deflate <- inflate[series_id == "WPU0223", ] +deflate[, MONTH := as.numeric(substr(period, 2, 3))] +data.table::setnames(deflate, c('year', 'value'), c('YEAR', 'PPI')) +deflate <- deflate[, list(YEAR, MONTH, PPI)] + +usethis::use_data(deflate) diff --git a/data/deflate.rda b/data/deflate.rda new file mode 100644 index 0000000..b07043f Binary files /dev/null and b/data/deflate.rda differ