R/formatSource.R

In nwstephens/nyr2016addins: Addins for 2016 New York R Conference

formatSource <- function() {
    
    context <- rstudioapi::getActiveDocumentContext()
    formatted <- formatR::tidy_source(text = context$contents, output = FALSE)
    contents <- paste0(formatted$text.tidy, collapse = "\n")
    rstudioapi::setDocumentContents(contents, id = context$id)
    
}