context('plot working properly')
df <- as.data.frame(datasets::Seatbelts)
df <- df[,1:(ncol(df)-1)]
expect_is(plot(corrgrapher(df)), 'visNetwork')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.