```
#' Calculate the area of a circle given its radius
#'
#' @param r Radius of circle
#'
#' @return Area of circle
#' @export
#'
#' @examples
#' circle_area(1:5)
circle_area<-function(r){
stopifnot(is.numeric(r))
pi*r^2
}
```

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.