withr::with_options(
list(styler.cache_name = NULL), # temporarily deactivate cache
{
string_to_format <- "call( 3)"
pd <- compute_parse_data_nested(string_to_format)
styler:::pre_visit_one(pd, default_style_guide_attributes)
}
)
Run the code above in your browser using DataLab