forked from r-lib/usethis
-
Notifications
You must be signed in to change notification settings - Fork 0
/
readme.R
67 lines (62 loc) · 1.84 KB
/
readme.R
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
#' Create README files
#'
#' @description
#' Creates skeleton README files with sections for
#' * a high-level description of the package and its goals
#' * R code to install from GitHub, if GitHub usage detected
#' * a basic example
#'
#' Use `Rmd` if you want a rich intermingling of code and output. Use `md` for a
#' basic README. `README.Rmd` will be automatically added to `.Rbuildignore`.
#' The resulting README is populated with default YAML frontmatter and R fenced
#' code blocks (`md`) or chunks (`Rmd`).
#'
#' If you use `Rmd`, you'll still need to render it regularly, to keep
#' `README.md` up-to-date. `devtools::build_readme()` is handy for this. You
#' could also use GitHub Actions to re-render `README.Rmd` every time you push.
#' An example workflow can be found in the `examples/` directory here:
#' <https://github.com/r-lib/actions/>.
#'
#' @inheritParams use_template
#' @seealso The [important files
#' section](https://r-pkgs.org/release.html#important-files) of [R
#' Packages](https://r-pkgs.org).
#' @export
#' @examples
#' \dontrun{
#' use_readme_rmd()
#' use_readme_md()
#' }
use_readme_rmd <- function(open = rlang::is_interactive()) {
check_installed("rmarkdown")
data <- project_data()
data$Rmd <- TRUE
data$on_github <- origin_is_on_github()
new <- use_template(
if (is_package()) "package-README" else "project-README",
"README.Rmd",
data = data,
ignore = is_package(),
open = open
)
if (!new) {
return(invisible(FALSE))
}
if (uses_git()) {
use_git_hook(
"pre-commit",
render_template("readme-rmd-pre-commit.sh")
)
}
invisible(TRUE)
}
#' @export
#' @rdname use_readme_rmd
use_readme_md <- function(open = rlang::is_interactive()) {
use_template(
if (is_package()) "package-README" else "project-README",
"README.md",
data = project_data(),
open = open
)
}