context("convert-data")
test_that("convert_data on data.frame returns correct number of rows", {
data <- data.frame(
dlogical = as.logical(0:9),
dnumeric = 1:10 + 0.1,
dinteger = 1:10,
dfactor = factor(1:10),
ddate = as.Date("2000-01-01") + 1:10,
dposixt = as.POSIXct("2000-01-01", tz= "UTC") + 1:10
)
expect_that(convert_data(data), is_a("data.frame"))
expect_that(nrow(convert_data(data)), equals(10))
})
test_that("convert_data on data list returns correct length", {
data <- list(
dlogical = as.logical(0:9),
dnumeric = 1:10 + 0.1,
dinteger = 1:10,
dfactor = factor(1:10),
ddate = as.Date("2000-01-01") + 1:10,
dposixt = as.POSIXct("2000-01-01", tz= "UTC") + 1:10
)
expect_that(convert_data(data), is_a("list"))
expect_that(length(convert_data(data)), equals(6))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.