text_in <- 'x<- function()
"here
is"
NULL
1+ 1
'
style_text(text_in, base_indention = 3)
# not equal to the naive approach
styler:::construct_vertical(
paste0(styler:::add_spaces(3), style_text(text_in), sep = "")
)
Run the code above in your browser using DataLab