davidgohel
commented
7 years ago Dear anonymous
Thanks a lot for that wonderful minimal example.
.
Despite my previous warning, you keep on opening issues each time you have a question. I am going to ban you from my github account.
- post issues that are issues, not "do my job" request
- Provide minimal reproducible example. Your script is failing as the previous you sent; seriously, do you really think I am going to spend hours trying to fix and understand what you are doing? Read Hadley documents. Start with this one: http://adv-r.had.co.nz/Reproducibility.html
- read the documentation. From the various messages you sent, you clearly didn't read the documentation on FlexTable and sections in Word.
David
`#%%%%%%%%%%%%%%%%%%%% Export in word %%%%%%%%%%%%%
library(ReporteRsjars) library(ReporteRs)
Create a word document to contain R outputs
doc <- docx(template=paste(path_temp,"Template_table 3.docx",sep="/"))
options( "ReporteRs-fontsize" = 9, "ReporteRs-default-font" = "Courier")
Add a title to the document x=table no,y=baseline day,z=table
par_fun<-function(x,y,z){ Title_t2<-pot(paste("Table" ,x,"Change in UEMS from Baseline by AIS/NLI- Change from Baseline ",y,"days")) MyFTable <-FlexTable(data=z,header.columns = F)
doc = addPageBreak(doc )
MyFTable <- addHeaderRow( MyFTable, value ="Table 3.1 Change in UEMS from Baseline by AIS/NLI- Change from Baseline 0 to 3 Days \n Population: EMSCI Database (Version January, 2016) \n \n",
MyFTable <- addHeaderRow( MyFTable,
value = c("-"),colspan = c(11) )
MyFTable <- addHeaderRow( MyFTable, value = c("Timepoint", "A", "B","C","D","Total"), colspan = c(1, 2, 2, 2,2,2) ) MyFTable <- addHeaderRow( MyFTable, value = c( "", paste("(N=",N_A,")",sep=""),paste("(N=",N_B,")",sep="") ,paste("(N=",N_C,")",sep=""),paste("(N=",N_D,")",sep=""), paste("(N=",N_Tot,")",sep="")), colspan = c(1, 2, 2, 2,2,2) ) MyFTable <- addHeaderRow( MyFTable, value = c( "", "Actual","Change","Actual","Change","Actual","Change","Actual","Change","Actual","Change"), colspan = c(rep(1,11)) )
border properties to use later
no_border = borderProperties( width = 0 ) big_border = borderProperties( width = 2 ) std_border = borderProperties( width = 1 )
another_border = borderProperties(width = 2, color = "red", style = "dashed")
format the table grid borders
MyFTable = setFlexTableBorders( MyFTable, inner.vertical = no_border, inner.horizontal = no_border, outer.vertical = no_border, outer.horizontal = big_border ) MyFTable[2,1:11, to="header"] = big_border MyFTable[1,1:11, to="header"] = no_border
MyFTable<-setFlexTableWidths(MyFTable,widths = c(1,rep(0.9,length(colnames(z))-1))) MyFTable[ to = "header" ] = textBold() MyFTable[ to = "header" ] = parCenter() MyFTable[ , 1 ] = parProperties( text.align = "left" ) MyFTable[ , 2:length(colnames(z))] = parProperties( text.align = "center" ) doc <- addFlexTable( doc, MyFTable,par.properties = parProperties(text.align = "center")) setwd(result_path) writeDoc(doc, file = "Table3.1_EMSCI.docx") } par_fun("3.1","0-3",Table3)
locale: [1] LC_COLLATE=English_United States.1252 LC_CTYPE=English_United States.1252
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C
[5] LC_TIME=English_United States.1252
attached base packages: [1] tcltk stats graphics grDevices utils datasets methods base
other attached packages: [1] Publish_1.2.3 devtools_1.12.0 prodlim_1.6.1 ReporteRs_0.8.8 ReporteRsjars_0.0.2 [6] pander_0.6.0 formattable_0.2.0.1 magrittr_1.5 tidyr_0.6.1 psych_1.6.12
[11] Hmisc_4.0-2 ggplot2_2.2.1 Formula_1.2-1 survival_2.40-1 lattice_0.20-34
[16] reshape_0.8.6 lazyeval_0.2.0 dplyr_0.5.0 sqldf_0.4-10 RSQLite_1.1-2
[21] gsubfn_0.6-6 proto_1.0.0 rJava_0.9-8
loaded via a namespace (and not attached): [1] Rcpp_0.12.10 png_0.1-7 assertthat_0.1 rprojroot_1.1 digest_0.6.12
[6] mime_0.5 R6_2.2.0 plyr_1.8.4 chron_2.3-49 backports_1.0.4
[11] acepack_1.4.1 evaluate_0.10 gdtools_0.1.4 data.table_1.10.4 R.utils_2.5.0
[16] R.oo_1.21.0 rpart_4.1-10 Matrix_1.2-8 checkmate_1.8.2 rmarkdown_1.3
[21] splines_3.3.3 stringr_1.1.0 foreign_0.8-67 htmlwidgets_0.8 munsell_0.4.3
[26] shiny_1.0.0 httpuv_1.3.3 base64enc_0.1-3 mnormt_1.5-5 rvg_0.1.2
[31] htmltools_0.3.5 nnet_7.3-12 tibble_1.2 gridExtra_2.2.1 htmlTable_1.9
[36] withr_1.0.2 R.methodsS3_1.7.1 grid_3.3.3 xtable_1.8-2 gtable_0.2.0
[41] DBI_0.5-1 scales_0.4.1 stringi_1.1.2 latticeExtra_0.6-28 xml2_1.1.1
[46] lava_1.4.7 RColorBrewer_1.1-2 tools_3.3.3 parallel_3.3.3 colorspace_1.3-2
[51] cluster_2.0.5 memoise_1.0.0 knitr_1.15.1