R/publish.summary.prodlim.R

In tagteam/Publish: Format Output of Various Routines in a Suitable Way for Reports and Publication

##' @export 
publish.summary.prodlim <- function(object,
                                    conf.int = 0.95,
                                    digits = 1,
                                    print=TRUE,
                                    latex=FALSE,
                                    ...){
  otab <- object$table
  if (class(otab)[1]=="list"){
    onames <- names(otab)
    nix <- lapply(1:length(otab),function(i){
      ## publish(onames[i])
      if (latex==TRUE)
        publish(onames[i])
      cat("\n\n")
      publish(otab[[i]],digits=digits,rownames=FALSE,latex=latex,...)
    })
  }
  else{
    publish(otab,digits=digits,rownames=FALSE,latex=latex,...)
  }
}