Nothing
tests/testthat/test_display_functions_textual.r
In IRdisplay: 'Jupyter' Display Machinery
context('textual display functions')
last_data <- NULL
test_display_func <- function(data, metadata = NULL) {
last_data <<- list(data, metadata)
}
get_last_data <- function() {
ret <- last_data
last_data <<- NULL
ret
}
withr::with_options(list(jupyter.base_display_func = test_display_func), {
test_that('display_json works', {
exp <- list('application/json' = '{}')
display_json('{}')
expect_equal(get_last_data(), list(exp, NULL))
})
test_that('display_javascript works', {
exp <- list('application/javascript' = 'data')
display_javascript('data')
expect_equal(get_last_data(), list(exp, NULL))
})
test_that('display_html works', {
exp <- list('text/html' = 'data')
display_html('data')
expect_equal(get_last_data(), list(exp, NULL))
})
test_that('display_html with full html page', {
exp <- list('text/html' = '<html><body>text</body></html>')
exp_md <- list('text/html' = list(isolated = TRUE))
display_html('<html><body>text</body></html>')
expect_equal(get_last_data(), list(exp, exp_md))
})
test_that('display_markdown works', {
exp <- list('text/markdown' = 'data')
display_markdown('data')
expect_equal(get_last_data(), list(exp, NULL))
})
test_that('display_latex works', {
exp <- list('text/latex' = 'data')
display_latex('data')
expect_equal(get_last_data(), list(exp, NULL))
})
})
Try the IRdisplay package in your browser
Any scripts or data that you put into this service are public.
IRdisplay documentation built on Jan. 4, 2022, 5:08 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context('textual display functions')
last_data <- NULL
test_display_func <- function(data, metadata = NULL) {
last_data <<- list(data, metadata)
}
get_last_data <- function() {
ret <- last_data
last_data <<- NULL
ret
}
withr::with_options(list(jupyter.base_display_func = test_display_func), {
test_that('display_json works', {
exp <- list('application/json' = '{}')
display_json('{}')
expect_equal(get_last_data(), list(exp, NULL))
})
test_that('display_javascript works', {
exp <- list('application/javascript' = 'data')
display_javascript('data')
expect_equal(get_last_data(), list(exp, NULL))
})
test_that('display_html works', {
exp <- list('text/html' = 'data')
display_html('data')
expect_equal(get_last_data(), list(exp, NULL))
})
test_that('display_html with full html page', {
exp <- list('text/html' = '<html><body>text</body></html>')
exp_md <- list('text/html' = list(isolated = TRUE))
display_html('<html><body>text</body></html>')
expect_equal(get_last_data(), list(exp, exp_md))
})
test_that('display_markdown works', {
exp <- list('text/markdown' = 'data')
display_markdown('data')
expect_equal(get_last_data(), list(exp, NULL))
})
test_that('display_latex works', {
exp <- list('text/latex' = 'data')
display_latex('data')
expect_equal(get_last_data(), list(exp, NULL))
})
})
Try the IRdisplay package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.