#' Print method for object of type BiRankFr
#'
#' @param x Object of type BiRankFr
#' @param ... Ellipses argument, to be passed to \code{print} function.
#'
#' @return Nothing
print.BiRankFr <- function(x, ...) {
cat("\n\nResults claims\n\n")
print(head(x$ResultsClaims), ...)
cat("\n\nResults parties\n\n")
print(head(x$ResultsParties), ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.