# library(testthat)
# context("rastertable creation and behaviour")
# library(dplyr)
# library(rastertable)
# library(raster)
# r <- raster(volcano)
# br <- brick(r)
# sr <- stack(r)
#
# rt <- rastertable(r)
# brt <- rastertable(br)
# srt <- rastertable(sr)
# rt <- voltab
# test_that("rastertable works", {
# rt %>%
# expect_is("rastertable")
# brt %>%
# expect_is("rastertable")
# srt %>%
# expect_is("rastertable")
# })
#
# test_that("size is correct for single layer rasters", {
# expect_that(dim(rt), equals(dim(brt)))
# expect_that(dim(rt), equals(dim(srt)))
# expect_that(dim(brt), equals(dim(brt)))
# })
#
# br3 <- brick(r, r, r)
# sr3 <- stack(r, r, r)
# test_that("size is correct for multi layer rasters", {
# expect_that(dim(rastertable(br3)), equals(c(prod(dim(br3)), 3)))
# expect_that(dim(rastertable(sr3)), equals(c(prod(dim(br3)), 3)))
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.