Nothing
test_that("slackr_dev posts", {
skip_on_cran()
skip_on_ci()
hist(rnorm(100))
post <- slackr_dev()
expect_true(post$ok)
expect_equal(post$file$filetype, "png")
})
test_that("slackr_tex posts with no dir specified", {
skip_on_cran()
skip_on_ci()
## No path specified
post <- slackr_tex("$$e^{i \\pi} + 1 = 0$$")
expect_true(post$ok)
expect_equal(post$file$filetype, "png")
})
test_that("slackr_tex posts with dir specified", {
skip_on_cran()
skip_on_ci()
## With path specified
d <- tempdir()
post <- slackr_tex("$$e^{i \\pi} + 1 = 0$$", path = d)
unlink(d, recursive = TRUE)
expect_true(post$ok)
expect_equal(post$file$filetype, "png")
})
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.