Nothing
test_that("xl_open() works", {
wb <- wb_workbook()$add_worksheet(1)
# throw a warning
expect_warning(expect_s3_class(wb$open(interactive = FALSE), c("R6", "wbWorkbook")))
# should not change the path object
expect_identical(wb$path, character())
})
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.