Use visual_diff_output()
in ui and render_visual_diff(visual_diff(...))
in the server function.
visual_diff_output(outputId, width = "100%", height = "400px") visual_diff_render(expr, env = parent.frame(), quoted = FALSE)
outputId | output variable to read from |
---|---|
width, height | Must be a valid CSS unit (like |
expr | An expression that generates a visual_diff |
env | The environment in which to evaluate |
quoted | Is |
Components for use inside a Shiny app.
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) }#>