2016-02-17 13:33:25 +08:00
|
|
|
set.seed(1014)
|
|
|
|
|
|
|
|
|
|
knitr::opts_chunk$set(
|
|
|
|
|
comment = "#>",
|
|
|
|
|
collapse = TRUE,
|
2021-04-20 19:48:01 +08:00
|
|
|
# cache = TRUE,
|
2016-07-18 22:52:55 +08:00
|
|
|
out.width = "70%",
|
|
|
|
|
fig.align = 'center',
|
|
|
|
|
fig.width = 6,
|
|
|
|
|
fig.asp = 0.618, # 1 / phi
|
|
|
|
|
fig.show = "hold"
|
2016-02-17 13:33:25 +08:00
|
|
|
)
|
|
|
|
|
|
|
|
|
|
options(dplyr.print_min = 6, dplyr.print_max = 6)
|
2020-10-05 04:08:42 +08:00
|
|
|
|
2021-04-20 19:48:01 +08:00
|
|
|
# Activate crayon output
|
|
|
|
|
options(
|
|
|
|
|
crayon.enabled = TRUE,
|
2021-04-20 21:32:39 +08:00
|
|
|
pillar.bold = TRUE,
|
|
|
|
|
stringr.html = FALSE
|
2021-04-20 19:48:01 +08:00
|
|
|
)
|
2021-05-04 21:10:39 +08:00
|
|
|
|
|
|
|
|
|
|
|
|
|
status <- function(type) {
|
|
|
|
|
status <- switch(type,
|
|
|
|
|
restructuring = "undergoing heavy restructuring and may be confusing or incomplete",
|
|
|
|
|
drafting = "currently a dumping ground for ideas, and we don't recommend reading it",
|
|
|
|
|
stop("Invalid `type`", call. = FALSE)
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
cat(paste0(
|
|
|
|
|
"::: {.rmdnote}\n",
|
|
|
|
|
"You are reading the work-in-progress second edition of R for Data Science. ",
|
|
|
|
|
"This chapter is currently ", status, ". ",
|
|
|
|
|
"You can find the polished first edition at <https://r4ds.had.co.nz>.\n",
|
|
|
|
|
":::\n"
|
|
|
|
|
))
|
|
|
|
|
}
|
