tests/testthat/test-wt_dt.R

In webtrackR: Preprocessing and Analyzing Web Tracking Data

test_that("as.wt_dt", {
    data("testdt_tracking")
    testdt_tracking$timestamp <- as.character(testdt_tracking$timestamp)
    # testing timestamp parsing
    wt_aswt <- as.wt_dt(testdt_tracking, timestamp_format = "%Y-%m-%d %H:%M:%OS")
    expect_true(!any(is.na(wt_aswt$timestamp)))
    wt_aswt <- as.wt_dt(testdt_tracking, timestamp_format = "%Y %m %d")
    expect_true(any(is.na(wt_aswt$timestamp)))
    # test naming argument
    names(testdt_tracking) <- c("panelist", "wave", "time", "urladdress", "device")
    wt_aswt <- as.wt_dt(testdt_tracking, varnames = c(panelist_id = "panelist", timestamp = "time", url = "urladdress"))
    expect_true(c("panelist_id") %in% names(wt_aswt))
    expect_true(c("url") %in% names(wt_aswt))
    expect_true(c("timestamp") %in% names(wt_aswt))
})

test_that("as.wt_dt errors", {
    data("testdt_tracking")
    expect_no_error(as.wt_dt(testdt_tracking))
    names(testdt_tracking)[1] <- "wrong"
    expect_error(as.wt_dt(testdt_tracking))
})

test_that("is.wt_dt", {
    data("testdt_tracking")
    wt <- as.wt_dt(testdt_tracking)
    expect_true(is.wt_dt(wt))
    expect_false(is.wt_dt(testdt_tracking))
})

test_that("summary", {
    data("testdt_tracking")
    wt <- as.wt_dt(testdt_tracking)
    sum <- utils::capture.output(summary(wt))
    expect_true(any(grepl("Overview", sum)))
    expect_true(any(grepl("DATA", sum)))
})

# test_that("print", {

#   data("testdt_tracking")
#   wt <- as.wt_dt(testdt_tracking)
#   sum <- utils::capture.output(print(wt))
#   expect_true(any(grepl("webtrack data", sum)))
# })