Nothing
context("io")
test_that("correctly writes and reads file", {
tmp_file <- paste0(tempdir(), "/tmp_file.R")
code <- "hello_world <- 'hello_world'\n"
write_code_file(code, tmp_file)
read_code <- read_code_file(tmp_file)
expect_equal(code, read_code)
file.remove(tmp_file)
})
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.