test_that("draw graph has the correct input", {
expect_error(Draw.Graph(1000,100,500))
expect_error(Draw.Graph(1000,500,100,250, 50, 100))
expect_error(Draw.Graph(100,500,100, 250, 100, 50))
expect_error(Draw.Graph(1000,500,100, 50, 100, 50))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.