# PROGRAMS.R
#
# This script exports tables of program attributes and of paper-program correspondences.
#
# Ben Davies
# October 2021
# Load packages
library(bldr)
library(data.table)
library(dplyr)
library(readr)
library(stringr)
library(tidyr)
# Import helper functions
source('data-raw/helpers.R')
# Import raw metadata
paper_programs_raw = fread('data-raw/metadata/working_papers_programs.tab', quote = '')
# Import working paper attributes
papers = read_csv('data-raw/papers.csv')
# Create supplemental correspondences for papers published in technical series
twp_duplicates = paste0('w', c(11259, 12690, 12772, 12831, 12999, 13039, 13134, 13517))
twp_supplement = papers %>%
filter(substr(paper, 1, 1) == 't') %>%
pull(paper) %>%
{crossing(paper = c(., twp_duplicates), program = 'TWP')}
# Create paper-program crosswalk
paper_programs = paper_programs_raw %>%
as_tibble() %>%
select(paper, program) %>%
filter(grepl('^^(h|t|w)[0-9]', paper)) %>%
semi_join(papers) %>%
bind_rows(twp_supplement) %>%
distinct() %>%
arrange(program) %>%
sort_by_paper()
# Export paper-program crosswalk
write_csv(paper_programs, 'data-raw/paper_programs.csv')
save(paper_programs, file = 'data/paper_programs.rda', version = 2, compress = 'bzip2')
# Export program descriptions
programs = read_csv('data-raw/programs.csv')
save(programs, file = 'data/programs.rda', version = 2, compress = 'bzip2')
# Save session info
save_session_info('data-raw/programs.log')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.