# Description:
# Test dependency collection for arrays.
context("deps for arrays")
test_that("write dependencies are collected for arrays", {
expression = call("=", quote(x[1]), quote(y))
result = collect_deps(expression)
expect_equal_set(result$get_reads(), c("x", "y"))
expect_equal_set(result$get_writes(), "x")
})
test_that("read dependencies are collected for arrays", {
expression = call("=", quote(x), quote(y[i]))
result = collect_deps(expression)
expect_equal_set(result$get_reads(), c("y", "i"))
expect_equal_set(result$get_writes(), "x")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.