##### TESTS #####
test_that('DependencyReporter extracts expected network for baseballstats', {
testObj <- DependencyReporter$new()$set_package('baseballstats')
# Test nodes
expect_equivalent(
object = testObj$nodes
, expected = data.table::fread(file.path('testdata', 'baseballstats_dependency_nodes.csv'))
, ignore.col.order = TRUE
, ignore.row.order = TRUE
)
# Test edges
expect_equivalent(
object = testObj$edges
, expected = data.table::fread(file.path('testdata', 'baseballstats_dependency_edges.csv'))
, ignore.col.order = TRUE
, ignore.row.order = TRUE
)
})
test_that('DependencyReporter extracts expected network for milne (with LinkingTo:)', {
testObj <- DependencyReporter$new()$set_package('milne')
# Test nodes
expect_equivalent(
object = testObj$nodes
, expected = data.table::fread(file.path('testdata', 'milne_dependency_nodes.csv'))
, ignore.col.order = TRUE
, ignore.row.order = TRUE
)
# Test edges
expect_equivalent(
object = testObj$edges
, expected = data.table::fread(file.path('testdata', 'milne_dependency_edges.csv'))
, ignore.col.order = TRUE
, ignore.row.order = TRUE
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.