Tools to Work with the 'Splash' JavaScript Rendering Service in R
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

33 lines
849 B

7 years ago
context("basic functionality")
test_that("we can do something", {
7 years ago
testthat::skip_on_cran()
test_url <- "http://localhost:8050/"
xpct <- function(x) {
spact <- splash_active(splash_local)
expect_that(spact, equals(TRUE))
7 years ago
expect_that(length(splash_debug()), equals(7))
expect_that(length(splash_version()), equals(9))
expect_that(render_json(url = test_url), is_a("splash_json"))
expect_that(render_jpeg(url = test_url), is_a("magick-image"))
expect_that(render_png(url = test_url), is_a("magick-image"))
expect_that(render_html(url = test_url), is_a("xml_document"))
expect_that(render_har(url = test_url), is_a("har"))
}
spact <- splash_active(splash_local)
7 years ago
if (spact) {
xpct()
} else {
install_splash()
vm <- start_splash()
Sys.sleep(15)
xpct()
stop_splash(vm)
7 years ago
}
7 years ago
})