#' Comparison addins #' #' RStudio [addins](https://rstudio.github.io/rstudioaddins/) for comparing #' active files or projects against local or version control repository items. #' #' @eval man_section_addins() #' #' @seealso #' Functions [compare_with_other()] and [compare_with_repo()] for the flexible #' comparison of files and directories. #' #' Functions [compare_with_git()] and [compare_git_revisions()] for the flexible #' comparison against or between arbitrary Git revisions. #' #' @name compareWith-addins NULL # Addin bindings (not exported), with addin-specific errors. An attribute with # the addin name is also added, and used for unit-testing the consistency with # addins.dcf. addin_factory <- function(addin, body) { # get the body as expression from the call body <- match.call()$body binding <- function() { with_addin_errors(eval(body), addin) } attr(binding, "addin") <- addin binding } addin_other <- addin_factory( addin = "Compare with other...", compare_active_file_with_other() ) addin_repo <- addin_factory( addin = "Compare with repo", compare_active_file_with_repo() ) addin_project <- addin_factory( addin = "Compare with repo - project", compare_project_with_repo() ) addin_git <- addin_factory( addin = "Compare with Git...", compare_active_file_with_git() ) addin_git_project <- addin_factory( addin = "Compare with Git... - project", compare_project_with_git() ) addin_git_revisions <- addin_factory( addin = "Compare Git revisions... - project", compare_project_git_revisions() ) # Handle addin-specific error messages addin_message <- function(addin, condition) { sprintf("'%s' - %s", addin, condition$message) } with_addin_errors <- function(expr, addin) { withCallingHandlers( expr, error = function(e) { stop(addin_message(addin, e), call. = FALSE) } ) }

Files

Loading code snippet…