#' an example function
#'
#' @export
a <- function(x) {
if (x <= 1) {
1
} else {
2
}
}
#' @export
b <- function(x) {
return(x * 2)
}
private_function <- function(x) {
x ^ 2
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.