In karsfri/HMSr: Theme and functions for HMS

knitr::opts_chunk$set(fig.align="center", 
                      fig.margin=FALSE, 
                      fig.path='figs/',
                     echo=FALSE,
                     warning=FALSE,
                     message=FALSE, 
                     cache=FALSE,
                     dev.args=list(bg="white"))

# Library functions to be used in child docs 
library(HMSr)
library(here)
library(tidyverse)

Sys.setenv(LANGUAGE="is")

library(odbc)
library(lubridate)
library(glue)
library(scales)

# Override the default theme and colors for the ggplot
theme_set_hms()


# Here will use the path to the git repository base to ensure every path is universal within the repository 
# here::here("HMS_Economics", "Reports")

# Report path will change depending on where this RMD file is saved
ReportPath <- getwd()

# Eventually make into function

# Source all general functions in the () dir
files.sources <- list.files(path=here::here("HMS_Economics", "Code", "Functions"), full.names = TRUE,  pattern="*.R")
map(files.sources, source, encoding="utf-8")

# Source all analysis functions in the finalised analysis Dir
files.sources <- list.files(path=here::here("HMS_Economics", "Code", "Analyses", "Finalised"), full.names = TRUE,  pattern="*.R")
map(files.sources, source, encoding="utf-8")

# Creating the runtime.log file 
create_log()

\clearpage

\clearpage

\clearpage

\clearpage

\clearpage

karsfri/HMSr documentation built on Feb. 26, 2020, 10:36 a.m.