Nothing
## ----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,)))
# }) } )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.