# METADATA.R
#
# This script downloads metadata for the NBER working paper series.
#
# Ben Davies
# March 2022
# Load packages
library(bldr)
# Set timeout limit
options(timeout = max(300, getOption('timeout')))
# Initialize output directory
outdir = 'data-raw/metadata/'
if (!dir.exists(outdir)) dir.create(outdir)
# Download files
files = paste0('working_papers', c('', '_authors', '_programs', '_published'), '.tab')
for (f in files) {
download.file(paste0('https://data.nber.org/nber-wp-logs/', f), paste0(outdir, f))
}
# Save session info
save_session_info('data-raw/metadata.log')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.