In Pintademijote/LETG_pkg:

library(knitr)
library(kableExtra)
library(dplyr)
library(purrr)

sum_temp=as.data.frame(do.call(cbind, lapply(params$x, summary)))
sum_var=as.data.frame(do.call(cbind, lapply(params$variables, summary)))

Summary

Temperatures

if(ncol(sum_temp) <= 5){
kable_styling(knitr::kable(sum_temp, booktabs = T))
}else{
split(1:ncol(sum_temp), sort(rep_len(1:5, ncol(sum_temp)))) %>%
map(~select(sum_temp, .)) %>%
map(kable, format = "html", booktabs = T) %>%
map(kable_styling) %>%
walk(print)
}

Variables

kable_styling(knitr::kable(sum_var, booktabs = T))

Predictions

plot(params$pred)

`r params$date_pred`

ggplot(params$x,aes_string(x=params$date_pred))+geom_histogram()

for (i in colnames(params$variables)) {
  print(ggplot(params$merge_x_var,aes_string(x=params$date_pred, y=i))+
    geom_point())
}