## ----echo=FALSE---------------------------------------------------------------
library(diffobj)

## ----results='asis'-----------------------------------------------------------
cat(
  as.character(
    diffPrint(
      1:5, 2:6,
      format="html",
      style=list(html.output="diff.w.style")
) ) )

## ----results='asis'-----------------------------------------------------------
cat(
  as.character(
    diffPrint(
      1:5, 2:6,
      format="html",
      style=list(html.output="diff.only")   # notice this changed
) ) )

## ----eval=FALSE---------------------------------------------------------------
# options(
#   diffobj.format="html",
#   diffobj.style=list(html.output="diff.only")
# )

## ----echo=FALSE---------------------------------------------------------------
old.opts <- options(
  diffobj.format="html",
  diffobj.style=list(html.output="diff.only")
)

## ----results='asis'-----------------------------------------------------------
cat(as.character(diffPrint(1:5, 2:6)))

## ----echo=FALSE---------------------------------------------------------------
options(old.opts)

## ----eval=FALSE---------------------------------------------------------------
# library(shiny)
# shinyApp(
#   ui=fluidPage(htmlOutput('diffobj_element')),
#   server=function(input, output) {
#     output$diffobj_element <- renderUI({
#       HTML(
#         as.character(
#           diffPrint(
#             1:5, 2:6,
#             format="html",
#             style=list(html.output="diff.w.style")
# ) ) )}) } )

## ----eval=FALSE---------------------------------------------------------------
# options(
#   diffobj.format="html",
#   diffobj.style=list(html.output="diff.only")
# )
# shinyApp(
#   ui=fluidPage(
#     includeCSS(diffobj_css()),
#     htmlOutput('diffobj_element')
#   ),
#   server=function(input, output) {
#     output$diffobj_element <- renderUI({
#       HTML(as.character(diffPrint(1:5, 2:6,)))
# }) } )