Nothing
testthat::context("xaringan")
if(rstudioapi::isAvailable()){
path <- tempfile(pattern = 'test',fileext = '.R')
file.create(path)
rstudioapi::navigateToFile(path)
Sys.sleep(1)
sec <- rstudioapi::getSourceEditorContext()
}
testthat::describe('urls',{
skip_if_not_rstudio()
testthat::skip_on_travis()
it('empty',{
xaringanr()
rstudioapi::documentSave(sec$id)
testthat::expect_equal(readLines(path,warn = FALSE),
c('.pull-left[','',']','','.pull-right[','',']')
)
set_text(sec = sec)
})
it('highlighted',{
set_text('text',sec = sec, mark = individual_lines)
xaringanr()
rstudioapi::documentSave(sec$id)
testthat::expect_equal(readLines(path,warn = FALSE),
c('.pull-left[','',']','text','.pull-right[','',']'))
set_text(sec = sec)
})
})
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.