Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
97 lines (77 sloc) 2.41 KB
#' Find and Replace Tokens in a Document
#'
#' Call this as an addin to replace occurrences of a particular sequence of
#' characters in a document with a new sequence of characters.
#'
#' @export
findAndReplaceAddin <- function() {
ui <- miniPage(
includeHighlightJs(),
gadgetTitleBar("Find and Replace"),
miniContentPanel(
h4("Replace the text 'from' with the text 'to'."),
hr(),
stableColumnLayout(
checkboxInput("boundaries", "Use Word Boundaries?", value = TRUE),
uiOutput("changes")
),
stableColumnLayout(
textInput("from", "From:"),
textInput("to", "To:")
),
uiOutput("document", container = rCodeContainer)
)
)
server <- function(input, output, session) {
context <- rstudioapi::getActiveDocumentContext()
original <- context$contents
reactiveRefactor <- reactive({
from <- input$from
to <- input$to
boundaries <- input$boundaries
valid <- nzchar(from) && nzchar(to)
if (valid)
return(performRefactor(original, from, to, boundaries))
else
return(list(refactored = original, changes = 0))
})
output$changes <- renderUI({
spec <- reactiveRefactor()
if (spec$changes == 0)
return(div("No changes to be made."))
instances <- if (spec$changes == 1) "instance" else "instances"
div(paste(spec$changes, instances, "will be replaced."))
})
output$document <- renderCode({
spec <- reactiveRefactor()
highlightCode(session, "document")
paste(spec$refactored, collapse = "\n")
})
observeEvent(input$done, {
spec <- reactiveRefactor()
transformed <- paste(spec$refactored, collapse = "\n")
rstudioapi::setDocumentContents(transformed, id = context$id)
invisible(stopApp())
})
}
viewer <- dialogViewer("Find and Replace", width = 1000, height = 800)
runGadget(ui, server, viewer = viewer)
}
performRefactor <- function(contents, from, to, useWordBoundaries = TRUE) {
reFrom <- if (useWordBoundaries)
paste("\\b", from, "\\b", sep = "")
else
from
reTo <- to
matches <- gregexpr(reFrom, contents, perl = TRUE)
changes <- sum(unlist(lapply(matches, function(x) {
if (x[[1]] == -1) 0 else length(x)
})))
refactored <- unlist(lapply(contents, function(x) {
gsub(reFrom, reTo, x, perl = TRUE)
}))
list(
refactored = refactored,
changes = changes
)
}