diff --git a/DESCRIPTION b/DESCRIPTION index 12ccea10..acd6b536 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: pkgnet Type: Package Title: Get Network Representation of an R Package -Version: 0.6.0 +Version: 0.6.0.9999 Authors@R: c( person("Brian", "Burns", email = "brian.burns.opensource@gmail.com", role = c("aut", "cre")), person("James", "Lamb", email = "jaylamb20@gmail.com", role = c("aut")), diff --git a/NEWS.md b/NEWS.md index 3fad9d6b..4ed06ba5 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,10 @@ +# development +## NEW FEATURES + +## CHANGES + +## BUGFIXES + # pkgnet 0.6.0 ## NEW FEATURES diff --git a/tests/testthat/test-DependencyReporter-class.R b/tests/testthat/test-DependencyReporter-class.R index 15c68eee..1075d11a 100644 --- a/tests/testthat/test-DependencyReporter-class.R +++ b/tests/testthat/test-DependencyReporter-class.R @@ -51,9 +51,6 @@ test_that('DependencyReporter works end-to-end for typical use', { }) ## Node and Edge extraction work ## - #expect_silent({testObj$nodes}) - #expect_silent({testObj$edges}) - expect_true(data.table::is.data.table(testObj$nodes)) expect_true(object = is.element("node", names(testObj$nodes)) , info = "Node column created") @@ -63,7 +60,6 @@ test_that('DependencyReporter works end-to-end for typical use', { , info = "TARGET and SOURCE fields in edge table at minimum") ## pkg_graph works ## - #expect_silent({testObj$pkg_graph}) expect_true({"AbstractGraph" %in% class(testObj$pkg_graph)}) expect_true({"DirectedGraph" %in% class(testObj$pkg_graph)}) expect_true({igraph::is_igraph(testObj$pkg_graph$igraph)}) @@ -95,7 +91,6 @@ test_that('DependencyReporter works end-to-end for typical use', { }) ## graph_viz works ## - #expect_silent({testObj$graph_viz}) expect_true(object = is.element("visNetwork", attributes(testObj$graph_viz))) expect_equivalent( object = as.data.table(testObj$graph_viz$x$nodes)[, .(id)] diff --git a/tests/testthat/test-FunctionReporter-class.R b/tests/testthat/test-FunctionReporter-class.R index 386ded7d..631eeb2d 100644 --- a/tests/testthat/test-FunctionReporter-class.R +++ b/tests/testthat/test-FunctionReporter-class.R @@ -59,11 +59,6 @@ test_that('FunctionReporter works end-to-end for typical use', { , info = "$pkg_name did not return expected package name") ## Node and Edge extraction work ## - # expect_silent({ - # testObj$nodes - # testObj$edges - # }) - expect_true(data.table::is.data.table(testObj$nodes)) expect_true(object = is.element("node", names(testObj$nodes)) , info = "Node column created") @@ -74,8 +69,6 @@ test_that('FunctionReporter works end-to-end for typical use', { ## pkg_graph works ## - - #expect_silent({testObj$pkg_graph}) expect_true({"AbstractGraph" %in% class(testObj$pkg_graph)}) expect_true({"DirectedGraph" %in% class(testObj$pkg_graph)}) expect_true({igraph::is_igraph(testObj$pkg_graph$igraph)}) @@ -118,7 +111,6 @@ test_that('FunctionReporter works end-to-end for typical use', { ) ## graph_viz works ## - #expect_silent({testObj$graph_viz}) expect_true(object = is.element("visNetwork", attributes(testObj$graph_viz))) expect_equivalent( object = as.data.table(testObj$graph_viz$x$nodes)[, .(id)] @@ -136,7 +128,6 @@ test_that('FunctionReporter works end-to-end for typical use', { test_that('FunctionReporter can directly generate pkg_graph', { testObj <- FunctionReporter$new()$set_package("baseballstats") - #expect_silent(testObj$pkg_graph) expect_true("AbstractGraph" %in% class(testObj$pkg_graph)) expect_true(object = igraph::is_igraph(testObj$pkg_graph$igraph) , info = "Package graph did not successfuly generate igraph object") @@ -144,7 +135,6 @@ test_that('FunctionReporter can directly generate pkg_graph', { test_that('FunctionReporter can directly generate graph_viz', { testObj <- FunctionReporter$new()$set_package("baseballstats") - #expect_silent({testObj$graph_viz}) expect_true(object = is.element("visNetwork", attributes(testObj$graph_viz))) }) diff --git a/tests/testthat/test-InheritanceReporter-class.R b/tests/testthat/test-InheritanceReporter-class.R index f3706eb6..e81ae8e4 100644 --- a/tests/testthat/test-InheritanceReporter-class.R +++ b/tests/testthat/test-InheritanceReporter-class.R @@ -51,11 +51,6 @@ test_that('InheritanceReporter Methods Work', { }) ## Node and Edge extraction work ## - #expect_silent({ - # testObj$nodes - # testObj$edges - #}) - expect_true(data.table::is.data.table(testObj$nodes)) expect_true(object = is.element("node", names(testObj$nodes)) , info = "Node column created") @@ -65,7 +60,6 @@ test_that('InheritanceReporter Methods Work', { , info = "TARGET and SOURCE fields in edge table at minimum") ## pkg_graph works ## - #expect_silent({testObj$pkg_graph}) expect_true({"AbstractGraph" %in% class(testObj$pkg_graph)}) expect_true({"DirectedGraph" %in% class(testObj$pkg_graph)}) expect_true({igraph::is_igraph(testObj$pkg_graph$igraph)}) @@ -97,7 +91,6 @@ test_that('InheritanceReporter Methods Work', { }) ## graph_viz works ## - #expect_silent({testObj$graph_viz}) expect_true(object = is.element("visNetwork", attributes(testObj$graph_viz))) expect_equivalent( object = as.data.table(testObj$graph_viz$x$nodes)[, .(id)] diff --git a/tests/testthat/test-plotting.R b/tests/testthat/test-plotting.R index 5230662a..3efd3cdc 100644 --- a/tests/testthat/test-plotting.R +++ b/tests/testthat/test-plotting.R @@ -16,24 +16,6 @@ test_that('node coloring by discrete and continuous', { , palette = c("red", "green") ) - #expect_silent({ - # - # b$.__enclos_env__$private$set_plot_node_color_scheme( - # field = "filename" - # , palette = c( - # "#E41A1C" - # , "#377EB8" - # , "#4DAF4A" - # , "#984EA3" - # , "#FF7F00" - # , "#FFFF33" - # , "#A65628" - # , "#F781BF" - # , "#999999" - # ) - # ) - #}) - viz <- b$graph_viz expect_is(viz, "visNetwork") expect_is(viz, "htmlwidget")