Nothing
test_that("same returns a valid object on update", {
expect_type(
update_DyNAM_choice_same(
attribute = testAttr$fishingSkill, node = 1, replace = 1
),
"list"
)
expect_true(
inherits(
update_DyNAM_choice_same(
attribute = testAttr$fishingSkill, node = 1, replace = 1
)$changes,
"matrix"
),
label = "it doesn't return a matrix"
)
})
test_that("same returns NULL if there is no change", {
expect_null(
update_DyNAM_choice_same(
testAttr$fishingSkill,
node = 1, replace = 10
)$changes
)
expect_null(
update_DyNAM_choice_same(
testAttr$fishSizeMean,
node = 1, replace = 0.15
)$changes,
label = "when no match results from update"
)
expect_null(
update_DyNAM_choice_same(
testAttr$fishingSkill,
node = 7, replace = 2
)$changes,
label = "when new and old attribute have no match"
)
expect_null(
update_DyNAM_choice_same(
testAttr$fishingSkill,
node = 2, replace = NA
)$changes,
label = "when replace is NA"
)
})
test_that("same returns correct attributes on update", {
expect_equal(
update_DyNAM_choice_same(
testAttr$fishingSkill,
node = 2, replace = 10
)$changes,
rbind(
c(node1 = 2, node2 = 1, replace = 1),
c(node1 = 2, node2 = 4, replace = 1),
c(node1 = 1, node2 = 2, replace = 1),
c(node1 = 4, node2 = 2, replace = 1)
),
label = "when new attribute creates additional matches"
)
expect_equal(
update_DyNAM_choice_same(
testAttr$fishingSkill,
node = 1, replace = 2
)$changes,
rbind(
c(node1 = 1, node2 = 4, replace = 0),
c(node1 = 4, node2 = 1, replace = 0)
),
label = "when the new attribute removes a previous match"
)
expect_equal(
update_DyNAM_choice_same(
testAttr$fishingSkill,
node = 1, replace = NA
)$changes,
rbind(
c(node1 = 1, node2 = 4, replace = 0),
c(node1 = 4, node2 = 1, replace = 0)
),
label = "when replace is NA and removes a previous match"
)
expect_equal(
update_DyNAM_choice_same(
testAttr$fishingSkill,
node = 8, replace = 10
)$changes,
rbind(
c(node1 = 8, node2 = 1, replace = 1),
c(node1 = 8, node2 = 4, replace = 1),
c(node1 = 1, node2 = 8, replace = 1),
c(node1 = 4, node2 = 8, replace = 1)
),
label = "when previous value was NA"
)
})
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.