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 = TRUE, 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 = FALSE, 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.