```
context("circle_area")
test_that("circle_area processes numeric values correctly",{
expect_equal(circle_area(1),pi)
expect_equal(circle_area(c(1,2)),c(pi,pi*4))
})
test_that("circle_area errors with non-numeric data",{
expect_error(circle_area("A"))
expect_error(circle_area(as.factor("A")))
})
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.