-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rprofile
70 lines (58 loc) · 2.33 KB
/
.Rprofile
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
# REMEMBER to restart R after you modify and save this file!
source("renv/activate.R")
library(dplyr)
library(ggplot2)
library(forcats)
library(purrr)
library(brms)
library(feather)
library(blogdown)
library(showtext)
# Now set options to customize the behavior of blogdown for this project. Below
# are a few sample options; for more options, see
# https://bookdown.org/yihui/blogdown/global-options.html
options(
# to automatically serve the site on RStudio startup, set this option to TRUE
blogdown.serve_site.startup = FALSE,
# to disable knitting Rmd files on save, set this option to FALSE
blogdown.knit.on_save = TRUE,
# build .Rmd to .html (via Pandoc); to build to Markdown, set this option to 'markdown'
blogdown.method = 'html'
)
# Set Hugo version
options(blogdown.hugo.version = "0.87.0")
# Stan options
# rstan_options(auto_write = FALSE)
# options(mc.cores = parallel::detectCores())
# Get font from Google and make available in ggplots
# NOTE: If I change fonts in ggplot figures I need to turn off iCloud Private
# Relay in order to successfully run this line. When it's on it causes errors in
# curl::curl_download(), which is what font_add_google() uses on the backend.
font_add_google(name = "Quicksand",
family = "Quicksand",
regular.wt = 300,
bold.wt = 400)
showtext_auto()
# Define custom ggplot theme
my_theme <- function(){
# Replace elements we want to change
theme_classic() %+replace%
theme(
panel.grid.major = element_line(color = "gray90", linewidth = .2),
panel.spacing = unit(2, "lines"),
axis.title.y = element_text(angle = 0, vjust = .5,
# Increase axis title's right margin
margin = margin(r = 5)),
# Increase font sizes & set font
text = element_text(family = "Quicksand", face = "bold"),
strip.text = element_text(size = 16),
axis.title = element_text(size = 15),
axis.text = element_text(size = 13),
legend.title = element_text(size = 15),
legend.text = element_text(size = 13)
)
}
# Set to custom theme
theme_set(my_theme())
# Solve a conflict with filter()
filter <- dplyr::filter