tests/testthat/test-plotting.R

In UptakeOpenSource/pkgnet: Get Network Representation of an R Package

##### TEST SET UP #####

test_that('node coloring by discrete and continuous', {
    b <- FunctionReporter$new()
    b$set_package('baseballstats'
                  , pkg_path = system.file('baseballstats'
                                           , package = "pkgnet"
                                           , lib.loc = Sys.getenv('PKGNET_TEST_LIB')
                  )
    )

    b$calculate_default_measures()

    b$.__enclos_env__$private$set_plot_node_color_scheme(
        field = "coverageRatio"
        , 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")
})