Helper function for RStudio Addin.

style_active_file()