R/set.R

In pttry/KT162R: Data preparation and graphs for the project KT162 Alueellinen liikkuvuus ja monipaikkaisuus

#' Set theme and knitr options
#'
#'
set_proj <- function(){
  knitr::opts_chunk$set(
    collapse = TRUE,
    comment = "#>",
    fig.width = 8,
    fig.height = 6
  )

  ggptt::set_ptt(15, "sans")

  ggplot2::theme_update(
    legend.text = ggplot2::element_text(size = 14),
    legend.position = "bottom",
    legend.justification = "left",
    plot.subtitle = ggplot2::element_text(colour = "grey40"),
    plot.caption = ggplot2::element_text(size = 10, face = "plain", colour = "grey40"))
}