R/attach_docx.R

In ghowoo/Wu: This is a collection of utility functions for statistical analysis and reporting.

#' A attach_docx Function
#'
#' This function allows you to attach a docx file of a table to the html output.
#' @param
#' @keywords attach a docx file to html output
#' @export


attach_docx <- function(obj, file = "table1.docx"){
  flextable::flextable(obj) %>% flextable::save_as_docx(path = file)
  xfun::embed_file(file)
}



#' @param
#' @keywords attach a csv file to html output
#' @export

attach_csv <- function(obj, filename = "table", filetype = ".csv"){
    file <- paste0(tempdir(), "/", filename, filetype)
    write.csv(obj, file, row.names = FALSE)
    xfun::embed_file(file)
}