Nothing
context("06-open_new_spreadsheet()")
# x is object -------------------------------------------------------------
fn <- tempfile()
test_that(
"open_new_spreadsheet() returns path after saving to file and opening - `format = TRUE`",
{
expect_equal(
object = suppressWarnings(open_new_spreadsheet(file = fn, format = FALSE, open = FALSE)),
expected = fn,
)
}
)
test_that(
"open_new_spreadsheet() reports error when file exist",
{
expect_error(
object = suppressWarnings(open_new_spreadsheet(file = fn, format = FALSE, open = FALSE)),
regexp = "Error during copying of the file from"
)
}
)
test_that(
"open_new_spreadsheet() returns path when file exist and overwrite = TRUE",
{
expect_equal(
object = suppressWarnings(open_new_spreadsheet(file = fn, format = TRUE, overwrite = TRUE, open = FALSE)),
expected = fn,
)
}
)
##
# test_that(
# "open_new_spreadsheet() creates file",
# {
# expect_true(
# object = file.exists( suppressWarnings(open_new_spreadsheet(file = NULL, format = FALSE, open = FALSE, overwrite = FALSE) ) )
# )
# }
# )
unlink(fn)
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.