if (FALSE) # Windows-specific example
m <- matrix(rnorm(12)*100, nrow=4,
dimnames=list(LETTERS[1:4], c("Variable","Value","Remark")))
wrd <- GetNewWrd()
wt <- ToWrd(m)
WrdFormatCells(wt, rstart=c(3,1), rend=c(4,3),
bg=wdConst$wdColorGold, font=list(name="Arial Narrow", bold=TRUE),
align="c", border=list(color=wdConst$wdColorTeal,
linewidth=wdConst$wdLineWidth300pt))
Run the code above in your browser using DataLab