context("mdsr")
test_that("scidb works", {
skip_on_cran()
x <- dbConnect_scidb("airlines")
expect_s4_class(x, "DBIObject")
expect_output(print(x), "MariaDBConnection")
suppressWarnings(y <- tbl(x, "airports"))
expect_s3_class(y, c("tbl_dbi", "tbl_sql", "tbl"))
expect_match(DBI::dbGetInfo(x)$host, "^mdsr.+rds\\.amazonaws\\.com$")
expect_equal(DBI::dbGetInfo(x)$user, "mdsr_public")
expect_equal(
y %>%
head(1) %>%
collect() %>%
nrow() %>%
suppressWarnings(),
1
)
expect_length(DBI::dbListTables(x), 5)
DBI::dbDisconnect(x)
})
test_that("download functions work", {
skip_on_cran()
BabynameDist <- make_babynames_dist()
expect_is(BabynameDist, "tbl_df")
NCI60 <- etl_NCI60()
expect_is(NCI60, "tbl_df")
expect_equal(nrow(NCI60), 41078)
})
test_that("save_webshot works", {
skip_on_cran()
if (require(leaflet)) {
x <- leaflet() %>%
addTiles() %>%
addMarkers(lng = 174.768, lat = -36.852, popup = "The birthplace of R")
png <- save_webshot(x, tempfile())
expect_s3_class(png, "fs_path")
# expect_true(file.exists(png))
# cleanup Crashpad
crashpad <- fs::path(fs::path_dir(tempdir()), "Crashpad")
if (fs::dir_exists(crashpad)) {
fs::dir_delete(crashpad)
}
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.