56 lines
1.4 KiB
R
56 lines
1.4 KiB
R
|
set.seed(1014)
|
||
|
|
|
||
|
|
knitr::opts_chunk$set(
|
||
|
|
comment = "#>",
|
||
|
|
collapse = TRUE,
|
||
|
|
# cache = TRUE,
|
||
|
|
fig.retina = 2,
|
||
|
|
fig.width = 6,
|
||
|
|
fig.asp = 2/3,
|
||
|
|
fig.show = "hold"
|
||
|
|
)
|
||
|
|
|
||
|
|
options(
|
||
|
|
dplyr.print_min = 6,
|
||
|
|
dplyr.print_max = 6,
|
||
|
|
pillar.max_footer_lines = 2,
|
||
|
|
pillar.min_chars = 15,
|
||
|
|
stringr.view_n = 6,
|
||
|
|
# Temporarily deactivate cli output for quarto
|
||
|
|
cli.num_colors = 0,
|
||
|
|
cli.hyperlink = FALSE,
|
||
|
|
pillar.bold = TRUE,
|
||
|
|
width = 77 # 80 - 3 for #> comment
|
||
|
|
)
|
||
|
|
|
||
|
|
ggplot2::theme_set(ggplot2::theme_gray(12))
|
||
|
|
|
||
|
|
# use results: "asis" when setting a status for a chapter
|
||
|
|
status <- function(type) {
|
||
|
|
status <- switch(type,
|
||
|
|
polishing = "should be readable but is currently undergoing final polishing",
|
||
|
|
restructuring = "is undergoing heavy restructuring and may be confusing or incomplete",
|
||
|
|
drafting = "is currently a dumping ground for ideas, and we don't recommend reading it",
|
||
|
|
complete = "is largely complete and just needs final proof reading",
|
||
|
|
stop("Invalid `type`", call. = FALSE)
|
||
|
|
)
|
||
|
|
|
||
|
|
class <- switch(type,
|
||
|
|
polishing = "note",
|
||
|
|
restructuring = "important",
|
||
|
|
drafting = "important",
|
||
|
|
complete = "note"
|
||
|
|
)
|
||
|
|
|
||
|
|
cat(paste0(
|
||
|
|
"\n",
|
||
|
|
":::: status\n",
|
||
|
|
"::: callout-", class, " \n",
|
||
|
|
"You are reading the work-in-progress second edition of R for Data Science. ",
|
||
|
|
"This chapter ", status, ". ",
|
||
|
|
"You can find the complete first edition at <https://r4ds.had.co.nz>.\n",
|
||
|
|
":::\n",
|
||
|
|
"::::\n"
|
||
|
|
))
|
||
|
|
}
|