if (!"pacman" %in% installed.packages()[,"Package"]) install.packages("pacman", repos='http://cran.r-project.org') pacman::p_load(tidyverse,RColorBrewer,highcharter,readxl,xts,magrittr,openxlsx,lubridate) load("./asset_sector/asset_sector_data.RData") load("./national_accounts/national_accounts_data.RData") load("./macro/macro_data.RData") load("./finance/finance_data.RData") load("./external/external_data.RData") asset_sector <- asset_sector_data %>% mutate(category="asset_sector") national_accounts <- national_accounts_data %>% mutate(category="national_accounts") macro <- macro_data %>% mutate(category="macro") finance <- finance_data %>% mutate(category="finance") external <- external_data %>% mutate(category="external") econ_public_data <- bind_rows(asset_sector, national_accounts, macro, finance, external) wb <- createWorkbook() addWorksheet(wb,"annual") df_annual <- econ_public_data %>% filter(freq=="A") %>% mutate(time=year(time)) %>% select(-freq,-seas_adj) %>% spread(time,values) %>% arrange(country_name,var_name) writeDataTable(wb, sheet="annual", df_annual, rowNames=FALSE, withFilter=FALSE) addWorksheet(wb,"quarterly") df_quarterly <- econ_public_data %>% filter(freq=="Q") %>% select(-freq) %>% spread(time,values) %>% arrange(country_name,var_name) writeDataTable(wb, sheet="quarterly", df_quarterly, rowNames=FALSE, withFilter=FALSE) addWorksheet(wb,"monthly") df_monthly <- econ_public_data %>% filter(freq=="M") %>% select(-freq) %>% spread(time,values) %>% arrange(country_name,var_name) writeDataTable(wb, sheet="monthly", df_monthly, rowNames=FALSE, withFilter=FALSE) saveWorkbook(wb,"./econ_public_data.xls",overwrite = TRUE)