# NOT RUN {
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
)
# }
Run the code above in your browser using DataLab