tests/testthat/testsummary.R

In Fiddleman/NeuroIS: Brownie R package

library("NeuroIS")
context("Test of Summary Function")

test_that("Test of summary() WITHOUT objectives", {
  import("datafortestingimport", prefix = "TEST")
  summary_names <- c("URL", "Impressions", "Sessions", "Duration", "Imp_per_Session")
  expect_equal(names(summary(TEST_web)), summary_names)
})

test_that("Test of summary() WITH objectives",{
  import("datafortestingimport", prefix = "TEST")
  objectives <- c(Goals="http://im.iism.kit.edu/")
  expect_equal(names(summary(TEST_web, objectives)), c("Label", "URL", "Unique_Conversions", "All_Conversions", "All_Conversion_Rate", "Unique_Conversions_Rate"))
})