R/AddIn_Reformat.R

In mikebesso/two.laws.big.bang:

#' Reformat a block of code using formatR.
AddIn_Reformat <- function() {

          formatRLink <- tags$a(href = "http://yihui.name/formatR/",
                    "formatR")

          ui <- miniUI::miniPage(includeHighlightJs(), miniUI::gadgetTitleBar("Reformat Code"),
                    miniUI::miniContentPanel(shiny::h4("Use ", formatRLink,
                              " to reformat code."), shiny::hr(), stableColumnLayout(shiny::checkboxInput("brace.newline",
                              "Place left braces '{' on a new line?", FALSE), shiny::numericInput("indent",
                              "Indent size: ", 2), shiny::numericInput("width",
                              "Column width: ", 60)), shiny::uiOutput("document",
                              container = rCodeContainer)))

          server <- function(input, output, session) {

                    # Get the document context.
                    context <- rstudioapi::getActiveDocumentContext()

                    reactiveDocument <- shiny::reactive({

                              # Collect inputs
                              brace.newline <- input$brace.newline
                              indent <- input$indent
                              width <- input$width

                              # Build formatted document
                              formatted <- formatR::tidy_source(text = context$contents,
                                        output = FALSE, width.cutoff = width, indent = indent,
                                        brace.newline = brace.newline)$text.tidy

                              formatted
                    })

                    output$document <- renderCode({
                              document <- reactiveDocument()
                              highlightCode(session, "document")
                              document
                    })

                    observeEvent(input$done, {
                              contents <- paste(reactiveDocument(), collapse = "\n")
                              rstudioapi::setDocumentContents(contents, id = context$id)
                              invisible(stopApp())
                    })

          }

          viewer <- shiny::dialogViewer("Reformat Code", width = 1000,
                    height = 800)
          shiny::runGadget(ui, server, viewer = viewer)

}