Nothing
context("test-transaction_functions")
#The top row has no matching date interval in good_PM, the second row has a good date and key,
#the third has a bad key
trans_test <- data.frame(key = c("A", "A", "B"),
trans_date = c(as.Date("1999-01-01"), as.Date("2000-10-15"), as.Date("2000-10-15")),
stringsAsFactors = FALSE)
#Expoected outcome of addStart(good_PM, trans_test)
good_trans_with_start <- data.frame(start_int = as.Date("2000-10-01"),
key = "A",
trans_date = as.Date("2000-10-15"), stringsAsFactors = FALSE)
test_that("Transaction allocation works", {
expect_equal(all.equal(addStart(trans_test, good_PM), good_trans_with_start), TRUE) })
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.