#' find divisors of an integer
#'
#' @export
factorise <- function(x) {
x <- as.integer(x)
y <- seq_len(abs(x))
y[x %% y == 0L]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.