adapt vignettes / examples

Author: lorenzwalthert

R/style_guides.R

@@ -182,7 +182,7 @@ tidyverse_style <- function(scope = "tokens",
 #'   pd_flat
 #' }
 #' set_line_break_before_curly_opening_style <- function() {
-#'   create_style_guide(line_break = set_line_break_before_curly_opening)
+#'   create_style_guide(line_break = tibble::lst(set_line_break_before_curly_opening))
 #' }
 #' style_text("a <- function(x) { x }", style = set_line_break_before_curly_opening_style)
 #' @importFrom purrr compact

man/create_style_guide.Rd

@@ -123,7 +123,9 @@ functions.
 
 ```{r}
 space_after_opening_style <- function(are_you_sure) {
-  create_style_guide(space = if (are_you_sure) styler:::remove_space_after_opening_paren)
+  create_style_guide(space = tibble::lst(remove_space_after_opening_paren = 
+    if (are_you_sure) styler:::remove_space_after_opening_paren
+  ))
 }
 style_text("call( 1,1)", style = space_after_opening_style, are_you_sure = FALSE)  
 ```
@@ -275,7 +277,7 @@ to create our style guide consisting of that function.
 
 ```{r}
 set_line_break_before_curly_opening_style <- function() {
-  create_style_guide(line_break = set_line_break_before_curly_opening)
+  create_style_guide(line_break = lst(set_line_break_before_curly_opening))
 }
 ```