R/print.R

In m-montero/LDTr: Loss Development Triangle Data

#' 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 = "")
}