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