R: Examples for 'styler::create_style

### ** Examples

set_line_break_before_curly_opening <- function(pd_flat) {
  op <- pd_flat$token %in% "'{'"
  pd_flat$lag_newlines[op] <- 1L
  pd_flat
}
set_line_break_before_curly_opening_style <- function() {
  create_style_guide(
    line_break = tibble::lst(set_line_break_before_curly_opening),
    style_guide_name = "some-style-guide",
    style_guide_version = "some-version"
  )
}
style_text(
  "a <- function(x) { x }",
  style = set_line_break_before_curly_opening_style
)

Warning: Could not use colored = TRUE, as the package prettycode is not
installed. Please install it if you want to see colored output or see
`?print.vertical` for more information.

a <- function(x)
{ x }

Examples for 'styler::create_style_guide'

Create a style guide