|
76 | 76 | #' @export |
77 | 77 | #' |
78 | 78 | #' @examples |
79 | | -#' # Extract documentation for built-in `stats` package (both docs and vignettes). |
| 79 | +#' # Extract documentation for built-in `stats` package (both docs and |
| 80 | +#' # vignettes). |
80 | 81 | #' docs <- rdd_to_txt("splines") |
81 | 82 | #' cat(substr(docs, 1, 500)) |
82 | 83 | #' |
83 | | -#' \dontrun{ |
| 84 | +#' \donttest{ |
84 | 85 | #' # Extract from GitHub repository |
85 | 86 | #' docs <- rdd_to_txt("r-lib/rlang") |
86 | 87 | #' |
@@ -125,7 +126,10 @@ rdd_to_txt <- function( |
125 | 126 | # Validate keep_files argument. |
126 | 127 | if (!keep_files %in% c("none", "tgz", "extracted", "both")) { |
127 | 128 | stop( |
128 | | - 'Invalid value for keep_files. Choose one of "none", "tgz", "extracted", "both".' |
| 129 | + paste( |
| 130 | + 'Invalid value for keep_files.', |
| 131 | + 'Choose one of "none", "tgz", "extracted", "both".' |
| 132 | + ) |
129 | 133 | ) |
130 | 134 | } |
131 | 135 |
|
@@ -179,7 +183,8 @@ rdd_to_txt <- function( |
179 | 183 | force_fetch = force_fetch || !is.null(version), |
180 | 184 | version = version, |
181 | 185 | cache_path = cache_path, |
182 | | - keep_files = "both" # make sure the files are not deleted prematurely, as rdd_to_txt will take care of that later |
| 186 | + keep_files = "both" # make sure files are not deleted prematurely, |
| 187 | + # as rdd_to_txt will take care of that later |
183 | 188 | ) |
184 | 189 | } |
185 | 190 |
|
|
0 commit comments