R/wordreports.R

In jprice80/academic: Statistical Models with Assumption Checks

#' Write Formatted Output to a *.docx File
#'
#' @description The write.report function will produce an MS Word document using the \code{\link{officer}}.
#'
#' @param object An R object from an aca analysis.
#' @param path Path or connection to write to.
#' @param round round the number of digits to round too when producing the report.
#'
#' @return will produce an *.docx file.
#' @export
#'
#' @examples
#' out<-descriptives(data=mtcars, vars=c("mpg","disp"), groupby=c("gear","am"))
#' write.report(out, path="C:/Temp/Output.docx")
write.report<-function(object, path, round=NULL){
  cls<-class(object)

  if(cls=="aca_desc"){

    write_aca_desc(object, path)

  } else {

    stop(paste("Not an aca object"))

  }
}


#======================================Descriptive Statistics===================================================
#' @export
write_aca_desc<-function(object, path, round=NULL){

  if(class(object) != "aca_desc"){
    stop(paste(descriptives, "not an aca_desc_desc object"))
  }

  if(!is.null(round)){
    object<-round_list(object, digits=round)
  }

  format_table_title<-fp_text(color="black", font.size=16, bold=TRUE, italic=FALSE, underlined = FALSE,
                              font.family = "Arial", vertical.align = "baseline", shading.color = "transparent")

  doc <- read_docx()
  doc %>% body_add_fpar(fpar(ftext('Descriptive Statistics', prop=format_table_title)), style='centered')
  doc %>% body_add_par("")

  for(i in 1:length(object)){
    #doc %>% body_add_table(object[[i]], style = "table_template", no_vband=FALSE)

    ft <- flextable(object[[i]])
    ft <- autofit(ft, add_w = 0, add_h = 0)

    doc <- body_add_flextable(doc, value = ft)
    doc %>% body_add_par("")
  }

  doc %>% body_end_section_landscape()
  print(doc, target = path)
}