Nothing
context("raster")
test_that("Setting the complete argument returns a ggplot", {
expect_is(dbplot_raster(mtcars, wt, mpg, complete = TRUE), "ggplot")
})
test_that("The correct number of rows are returned when using complte", {
expect_equal(
nrow(db_compute_raster(mtcars, wt, mpg, complete = TRUE)),
600
)
expect_equal(
nrow(db_compute_raster(mtcars,
wt, mpg,
complete = TRUE,
resolution = 10
)),
80
)
})
test_that("Compute raster 2 returns the rignt number of rows", {
expect_equal(
nrow(db_compute_raster2(mtcars, wt, mpg, complete = TRUE)),
600
)
expect_equal(
nrow(db_compute_raster2(mtcars,
wt, mpg,
complete = TRUE,
resolution = 10
)),
80
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.