tests/testthat/test-scan_data.R
In rich-iannone/pointblank: Data Validation and Organization of Metadata for Local and Remote Tables
skip_on_ci()
test_that("Using `scan_data()` results in an HTML document", {
scan_data_html <-
scan_data(
tbl = small_table,
sections = "OV"
) %>%
as.character()
expect_equal(length(scan_data_html), 1)
expect_true(
grepl(
"^<!doctype html>.*</body>.*?</html>$",
scan_data_html
)
)
scan_data_sqlite_html <-
scan_data(
tbl = small_table_sqlite(),
sections = "OV"
) %>%
as.character()
expect_equal(length(scan_data_sqlite_html), 1)
expect_true(
grepl(
"^<!doctype html>.*</body>.*?</html>$",
scan_data_sqlite_html
)
)
expect_error(
scan_data(
tbl = small_table,
sections = NULL
)
)
expect_error(
scan_data(
tbl = small_table,
sections = c()
)
)
expect_error(
scan_data(
tbl = small_table,
sections = ""
)
)
expect_error(
scan_data(
tbl = small_table,
sections = c("OVA", "DB")
)
)
expect_error(
scan_data(
tbl = small_table,
sections = "E"
)
)
})
rich-iannone/pointblank documentation built on June 29, 2024, 4:09 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
skip_on_ci()
test_that("Using `scan_data()` results in an HTML document", {
scan_data_html <-
scan_data(
tbl = small_table,
sections = "OV"
) %>%
as.character()
expect_equal(length(scan_data_html), 1)
expect_true(
grepl(
"^<!doctype html>.*</body>.*?</html>$",
scan_data_html
)
)
scan_data_sqlite_html <-
scan_data(
tbl = small_table_sqlite(),
sections = "OV"
) %>%
as.character()
expect_equal(length(scan_data_sqlite_html), 1)
expect_true(
grepl(
"^<!doctype html>.*</body>.*?</html>$",
scan_data_sqlite_html
)
)
expect_error(
scan_data(
tbl = small_table,
sections = NULL
)
)
expect_error(
scan_data(
tbl = small_table,
sections = c()
)
)
expect_error(
scan_data(
tbl = small_table,
sections = ""
)
)
expect_error(
scan_data(
tbl = small_table,
sections = c("OVA", "DB")
)
)
expect_error(
scan_data(
tbl = small_table,
sections = "E"
)
)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.