data(test_data)
expect_is( bubblegrid(test_data[[1]], test_data[[2]], test_data[[3]]) , "ggplot")
expect_is( bubblegrid(test_data[[1]], test_data[[2]], test_data[[4]], num_bins = 15), "ggplot")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.