#' Print crowd
#'
#' @param x
#'
#' @return
#' @export
#'
#' @examples
summary.crowdbias <- function(x, ...){
print(x)
cat("\n Bias detail \n")
print(x$bias_detail)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.