removed expect_silent commented tests and make dev version number (#342)

Author: bburns632

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")),

NEWS.md

@@ -1,3 +1,10 @@
+# development
+## NEW FEATURES
+
+## CHANGES
+
+## BUGFIXES
+
 # pkgnet 0.6.0
 ## NEW FEATURES
 

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)]

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,15 +128,13 @@ 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")
 })
 
 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)))
 })
 

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)]

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")