context("Convert fail to data frame")
test_that("error for Excel format", {
data <- "test.xlsx"
data2 <- "test.xls"
expect_error(rfile(data), "Data har fail format")
expect_error(rfile(data2))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.