compareGroups (version 3.3)

report: Report of descriptive tables and plots.

Description

This function creates automatically a PDF with the descriptive table as well as availability data and all plots. This file is structured and indexed in the way that the user can navigate through all tables and figures along the document.

Usage

report(x, file, fig.folder, compile = TRUE, openfile = TRUE, title = "Report", 
       author, date, ...)

Arguments

x

an object of class 'createTable'.

file

character specifying the PDF file resulting after compiling the LaTeX code of report. LaTeX code is also stored in the same folder with the same name but .tex extension. When 'compile' argument is FALSE, only .tex file is saved.

fig.folder

character specifying the folder where the plots corresponding to all row-variables of the table are placed. If it is left missing, a folder with the name file_figures is created in the same folder of 'file'.

compile

logical indicating whether tex file is compiled using texi2pdf function. Default value is TRUE.

openfile

logical indicating whether to open the compiled pdf file or not. It uses the sys function and does not apply when 'compile' argument is FALSE. Default value is TRUE.

title

character specifying the title of the report on the cover page. Default value is 'Report'.

author

character specifying the author/s name/s of the report on the cover page. When missing, no authors appear.

date

character specifying the date of the report on the cover page. When missing, the present date appears.

…

Arguments passed to export2latex.

See Also

createTable, export2latex, export2csv, export2html, radiograph

Examples

# NOT RUN {
# }
# NOT RUN {
require(compareGroups)
data(regicor)

 # example on an ordinary table
res <- createTable(compareGroups(year ~ . -id, regicor), hide = c(sex=1), hide.no = 'no')
report(res, "report.pdf" ,size="small", title="\Huge \textbf{REGICOR study}", 
       author="Isaac Subirana \\ IMIM-Parc de Salut Mar")

 # example on an stratified table by sex
res.men <- createTable(compareGroups(year ~ . -id-sex, regicor, subset=sex=='Male'), 
                       hide.no = 'no')
res.wom <- createTable(compareGroups(year ~ . -id-sex, regicor, subset=sex=='Female'), 
                       hide.no = 'no')
res <- cbind("Men"=res.men, "Wom"=res.wom)
report(res[[1]], "reportmen.pdf", size="small", 
        title="\Huge \textbf{REGICOR study \\ Men}", date="") # report for men / no date
report(res[[2]], "reportwom.pdf", size="small", 
        title="\Huge \textbf{REGICOR study \\ Women}", date="") # report for wom / no date

# }
# NOT RUN {
# }