49 lines
1.3 KiB
R
49 lines
1.3 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,
|
|
stringr.view_n = 10,
|
|
# Activate crayon output - temporarily disabled for quarto
|
|
# crayon.enabled = TRUE,
|
|
pillar.bold = TRUE,
|
|
width = 77 # 80 - 3 for #> comment
|
|
)
|
|
|
|
ggplot2::theme_set(ggplot2::theme_gray(12))
|
|
|
|
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(
|
|
"::: status 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"
|
|
))
|
|
}
|