R/write.blm_aban_commnet.R

In leandromarino/CesgTools: Educational Assessment Toolkit (Cesgranrio Foundation)

write.blm_aban_comment <- function(gabpar){
  cols <- c('it', 'bl', 'ob', 'itemblg', 'coditem', 'gab', 'aban', 'aban_motivo')
  gabpar <- gabpar[gabpar$aban == 1,cols]
  knitr::kable(x = gabpar, row.names = FALSE, format = 'pandoc')
}