In pedrocostaferreira/BETS: Brazilian Economic Time Series

\fontfamily{lmss}\selectfont

knitr::opts_chunk$set(warning=FALSE, message=FALSE)

text = params$text
author = params$author
email = params$email
logo = params$logo
url = params$url

library(BETS)

list.charts = params$charts
num.charts <- length(list.charts)
charts.opts <- params$charts.opts
style <- params$style

mask = 1:num.charts
has.chart = as.integer(mask == 1:16)

if(!is.na(params$style)){

  if(params$style == "plotly"){
    ext <- ".png"
  } else {
    ext <- ".pdf"
  }
} else {
    ext = ""
}

dir.create("graphs")

chart.FUN <- function(num){
    if(has.chart[num] == 1){
        BETS.chart(ts = list.charts[[num]], 
                   file = paste0("chart", num, ext), params = charts.opts[[num]], 
                   style = style, open = FALSE)
    }
}

for(i in 1:16){
    chart.FUN(i)
}

has.text = !is.na(text)

\def\haslogo{r as.integer(!is.na(logo))} \def\haswebsite{r as.integer(!is.na(url))} \def\hastext{r as.integer(has.text)}

\def\first{r has.chart[1]} \def\second{r has.chart[2]} \def\third{r has.chart[3]} \def\fourth{r has.chart[4]} \def\fifth{r has.chart[5]} \def\sixth{r has.chart[6]} \def\seventh{r has.chart[7]} \def\eighth{r has.chart[8]} \def\ninth{r has.chart[9]} \def\tenth{r has.chart[10]} \def\eleventh{r has.chart[11]} \def\twelfth{r has.chart[12]} \def\thirteenth{r has.chart[13]} \def\fourteenth{r has.chart[14]} \def\fifteenth{r has.chart[15]} \def\sixteenth{r has.chart[16]}

\fancypagestyle{plain}{ \fancyhf{}% \setlength{\headheight}{45pt} \fancyhead[L]{ \includegraphics[width=\linewidth,height=40pt]{logo_custom} } \ifnum\hastext = 1 \fancyhead[R]{ {\fontfamily{lmss}\selectfont {\footnotesize Analysis by} \ \ifnum\haslogo = 1 \includegraphics[width=\linewidth,height=35pt]{r logo} \ \else r author \ \fi \ifnum\haswebsite = 1 {\small \url{r url}} \fi } } \fi \fancyfoot[L]{ {\fontfamily{lmss}\selectfont {\small Charts generated by the \textbf{BETS R Package} on r Sys.Date() $\diamond$ \textbf{\url{https://github.com/pedrocostaferreira/BETS}}}} } \fancyfoot[R]{ \thepage\ / \pageref{LastPage} } } \pagestyle{plain}

\begin{figure}[h] \ifnum\first = 1 \begin{subfigure}{.49\textwidth} \centering \includegraphics[width=11.0cm,keepaspectratio]{graphs/r paste0("chart1",ext)} \label{chart1} \end{subfigure} \fi ~ \ifnum\second = 1 \begin{subfigure}{.49\textwidth} \centering \includegraphics[width=11.0cm,keepaspectratio]{graphs/r paste0("chart2",ext)} \label{chart2} \end{subfigure} \fi \end{figure}

text.len = 0

if(!is.na(text)){
  text <- paste(readLines(text), collapse=" ")
  text = gsub(pattern = "\\\\n", replacement = "  \n", x = text)
  text <- strsplit(text, "##")[[1]]
  cat(text[1])

  text.len = length(text) - 1
}

\ifnum\hastext = 1 \newpage \pagestyle{plain} \fi

\begin{figure}[h] \ifnum\third = 1 \begin{subfigure}{.49\textwidth} \centering \includegraphics[width=11.0cm,keepaspectratio]{graphs/r paste0("chart3",ext)} \label{chart3} \end{subfigure} \fi ~ \ifnum\fourth = 1 \begin{subfigure}{.49\textwidth} \centering \includegraphics[width=11.0cm,keepaspectratio]{graphs/r paste0("chart4",ext)} \label{chart4} \end{subfigure} \fi \end{figure}

if(!is.na(text) && text.len != 0){
  cat(text[2])
  text.len <- text.len - 1
}