tests/testthat/test_plot.R

context('plot working properly')

df <- as.data.frame(datasets::Seatbelts)
df <- df[,1:(ncol(df)-1)]

expect_is(plot(corrgrapher(df)), 'visNetwork')

Try the corrgrapher package in your browser

Any scripts or data that you put into this service are public.

corrgrapher documentation built on Oct. 23, 2020, 8:14 p.m.