# NOT RUN {
Single Series
RTL::eia2tidy(ticker = "PET.MCRFPTX2.M", key = EIAkey, name = "TexasProd")
Multiple Series
eia_df <-tibble::tribble(~ticker, ~name,
"PET.W_EPC0_SAX_YCUOK_MBBL.W", "CrudeCushing",
"NG.NW2_EPG0_SWO_R48_BCF.W","NGLower48") %>%
dplyr::mutate(key = "EIAkey") %>%
dplyr::mutate(df = purrr::pmap(list(ticker,key,name),.f=RTL::eia2tidy)) %>%
dplyr::select(df) %>% tidyr::unnest(df)
# }
Run the code above in your browser using DataLab