#' Print
#'
#' @export
print.tbl_tri <- function(x){
.c <- summary(x)
tri <- x %>% select_(.c$TRI_ROW,.c$TRI_COLUMN,.c$TRI_VALUE) %>%
tidyr::spread_(.c$TRI_COLUMN, .c$TRI_VALUE) %>%
as.data.frame()
tri <- round(tri,3)
print_summary(tri)
print_triangle(tri, type = .c$TRI_VALUE)
print_extra()
NextMethod()
}
#' Print
#'
print_summary <- function(x){
cat_line(paste("# A triangle:",nrow(x),"x",ncol(x)))
}
#' Print
#'
print_triangle <- function(x, type){
if(type == "TRI_DEV_FCT"){
bottom_tri(x, diag=FALSE) <- "*"
}else bottom_tri(x, diag =TRUE) <- "*"
print(x,quote=FALSE, na.print="-", right = TRUE, row.names = FALSE)
}
#' Print
#'
print_extra <- function(){
cat_line("#","\n")
}
#' Print
#'
cat_line <- function(...){
cat(..., "\n", sep = "")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.