#' @export
#' @useDynLib ry5
foo <- function(x) {
stopifnot(is.numeric(x))
out <- .Fortran("foo", x = as.double(x), n = length(x), PACKAGE = "ry4")
return(out$x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.