Merge pull request #614 from lorenzwalthert/issue-613

- Fix examples for cache (#614).

Author: lorenzwalthert

R/detect-alignment.R

@@ -27,6 +27,9 @@
 #' @keywords internal
 #' @examples
 #' library("magrittr")
+#' withr::with_options(
+#'   list(styler.cache_name = NULL), # temporarily deactivate cache
+#'   {
 #' transformers <- tidyverse_style()
 #' pd_nested <- styler:::compute_parse_data_nested(c(
 #'   "call(",
@@ -37,6 +40,7 @@
 #'   styler:::post_visit(transformers$initialize)
 #' nest <- pd_nested$child[[1]]
 #' styler:::token_is_on_aligned_line(nest)
+#' })
 token_is_on_aligned_line <- function(pd_flat) {
   line_idx <- 1 + cumsum(pd_flat$lag_newlines)
   pd_flat$.lag_spaces <- lag(pd_flat$spaces)

R/initialize.R

@@ -5,9 +5,14 @@
 #' @param pd_flat A parse table.
 #' @importFrom utils tail
 #' @examples
-#' string_to_format <- "call( 3)"
-#' pd <- styler:::compute_parse_data_nested(string_to_format)
-#' styler:::pre_visit(pd, c(default_style_guide_attributes))
+#' withr::with_options(
+#'   list(styler.cache_name = NULL), # temporarily deactivate cache
+#'   {
+#'     string_to_format <- "call( 3)"
+#'     pd <- styler:::compute_parse_data_nested(string_to_format)
+#'     styler:::pre_visit(pd, c(default_style_guide_attributes))
+#'   }
+#' )
 #' @export
 #' @keywords internal
 default_style_guide_attributes <- function(pd_flat) {

R/nested-to-tree.R

@@ -30,11 +30,15 @@ create_tree_from_pd_with_default_style_attributes <- function(pd, structure_only
 #' @return An object of class "Node" and "R6".
 #' @examples
 #' if (rlang::is_installed("data.tree")) {
-#'   cache_deactivate() # keep things simple
-#'   code <- "a <- function(x) { if(x > 1) { 1+1 } else {x} }"
-#'   nested_pd <- styler:::compute_parse_data_nested(code)
-#'   initialized <- styler:::pre_visit(nested_pd, c(default_style_guide_attributes))
-#'   styler:::create_node_from_nested_root(initialized, structure_only = FALSE)
+#'   withr::with_options(
+#'     list(styler.cache_name = NULL), # temporarily deactivate cache
+#'     {
+#'       code <- "a <- function(x) { if(x > 1) { 1+1 } else {x} }"
+#'       nested_pd <- styler:::compute_parse_data_nested(code)
+#'       initialized <- styler:::pre_visit(nested_pd, c(default_style_guide_attributes))
+#'       styler:::create_node_from_nested_root(initialized, structure_only = FALSE)
+#'     }
+#'   )
 #' }
 #' @keywords internal
 create_node_from_nested_root <- function(pd_nested, structure_only) {

R/utils-navigate-nest.R

@@ -48,8 +48,13 @@ previous_non_comment <- function(pd, pos) {
 #' nested structure.
 #' @keywords internal
 #' @examples
-#' pd <- styler:::compute_parse_data_nested("if (TRUE) f()")
-#' styler:::next_terminal(pd)
+#' withr::with_options(
+#'   list(styler.cache_name = NULL), # temporarily deactivate cache
+#'   {
+#'     pd <- styler:::compute_parse_data_nested("if (TRUE) f()")
+#'     styler:::next_terminal(pd)
+#'   }
+#' )
 next_terminal <- function(pd,
                           stack = FALSE,
                           vars = c("pos_id", "token", "text"),

man/create_node_from_nested_root.Rd

@@ -11,12 +11,9 @@ vignette: >
 ---
 
 We want to make styler faster.
-```{r, echo = FALSE}
-knitr::opts_chunk$set(eval = FALSE)
-```
 
 
-```{r}
+```
 library(styler)
 microbenchmark::microbenchmark(
   base = style_file("tests/testthat/indention_multiple/overall-in.R"),
@@ -28,7 +25,9 @@ microbenchmark::microbenchmark(
 ```
 
 Replacing mutate statements.
-```{r}
+
+```
+
 microbenchmark::microbenchmark(
   base = style_file("tests/testthat/indention_multiple/overall-in.R"),
   times = 2
@@ -39,7 +38,8 @@ microbenchmark::microbenchmark(
 ```
 
 Move `opening` argument out of needs indention.
-```{r}
+
+```
 microbenchmark::microbenchmark(
   base = style_file("tests/testthat/indention_multiple/overall-in.R"),
   times = 5
@@ -51,7 +51,8 @@ microbenchmark::microbenchmark(
 ```
 
 Dropping unnecessary select statements and arrange stuff.
-```{r}
+
+```
 microbenchmark::microbenchmark(
   base = style_file("tests/testthat/indention_multiple/overall-in.R"),
   times = 5
@@ -63,7 +64,8 @@ microbenchmark::microbenchmark(
 
 
 Some more stuff (early return, purr)
-```{r}
+
+```
 microbenchmark::microbenchmark(
   base = style_file("tests/testthat/indention_multiple/overall-in.R"),
   times = 5
@@ -74,7 +76,8 @@ microbenchmark::microbenchmark(
 ```
 
 Various changes (positive and negative in terms of speed)
-```{r}
+
+```
 microbenchmark::microbenchmark(
   base = style_file("tests/testthat/indention_multiple/overall-in.R"),
   times = 10
@@ -87,7 +90,8 @@ microbenchmark::microbenchmark(
 
 
 Removed tibble bottlenecks (tibble 1.4.2, https://github.com/tidyverse/tibble/pull/348)
-```{r}
+
+```
 microbenchmark::microbenchmark(
   base = style_file("tests/testthat/indention_multiple/overall-in.R"),
   times = 10