Package 'diffviewer'

HTML widget to visually compare two files

Description

Currently supports:

• image diffs for .svg and .png

• tabular diffs for .csv

• text diffs for everything else

Usage

visual_diff(file_old, file_new, width = NULL, height = NULL)

Arguments

file_old, file_new	Paths to files to compare
width, height	Output size

Value

A HTML widget

See Also

visual_diff_output() for use within Shiny apps

Examples

path1 <- tempfile()
path2 <- tempfile()
writeLines(letters, path1)
writeLines(letters[-13], path2)

if (interactive()) {
  visual_diff(path1, path2)
}

---

Shiny bindings for visual_diff()

Description

Use visual_diff_output() in ui and render_visual_diff(visual_diff(...)) in the server function.

Usage

visual_diff_output(outputId, width = "100%", height = "400px")

visual_diff_render(expr, env = parent.frame(), quoted = FALSE)

Arguments

outputId	output variable to read from
width, height	Must be a valid CSS unit (like '100%', '400px', 'auto') or a number, which will be coerced to a string and have 'px' appended.
expr	An expression that generates a visual_diff
env	The environment in which to evaluate expr.
quoted	Is expr a quoted expression (with quote())? This is useful if you want to save an expression in a variable.

Value

Components for use inside a Shiny app.

Examples

if (require("shiny") && interactive()) {
ui <- fluidPage(
  visual_diff_output("diff")
)

server <- function(input, output, session) {
  path1 <- tempfile()
  path2 <- tempfile()
  writeLines(letters, path1)
  writeLines(letters[-13], path2)

  output$diff <- visual_diff_render(visual_diff(path1, path2))
}

shinyApp(ui, server)
}

---