context("Time padder")
test_that("Test time padder with single site", {
# Load some data
df <- readRDS(
system.file("extdata/data_airbase_single_sampled.rds", package = "threadr")
)
# Simple usage
expect_equal(nrow(time_pad(df, interval = "hour")), 6572)
expect_equal(nrow(time_pad(df, interval = "min")), 394261)
expect_equal(nrow(time_pad(df, interval = "hour", round = "day")), 6600)
expect_equal(nrow(time_pad(df, interval = "hour", round = "year")), 8784)
# Group by
expect_equal(nrow(time_pad(df, interval = "hour", by = "site")), 6572)
# Multiple variables
expect_equal(
nrow(
time_pad(
df,
interval = "hour",
by = c("site", "country", "site_type")
)
),
6572
)
})
test_that("Test time padder with multiple sites", {
# Load data
df <- readRDS(
system.file("extdata/data_airbase_sampled.rds", package = "threadr")
)
expect_equal(nrow(time_pad(df, interval = "hour", by = "site")), 14226)
expect_equal(
nrow(
time_pad(
df,
interval = "hour",
by = c("site", "country", "site_type")
)
),
14226
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.