fix examples for cache

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"),