R/show-log.R

Defines functions showlog

showlog <- function(obj) {
  test <- attr(obj, "log")
  if(is.null(test)) {
    test <- attr(obj, "notes")$log
  }
  if(is.null(test)) stop("Can''t find log")
  else {
    cat(test)
    return(invisible(test))
  }
}
mattwarkentin/genetools documentation built on Nov. 4, 2019, 6:19 p.m.