Commit 2b5dc647 authored by Yong Liu's avatar Yong Liu

Refs #6195, add title

parent d24352c9
......@@ -5506,7 +5506,8 @@ compareDataExport <- function(comparedScript, len, ...){
keyvariablerisktable = gtable(data.frame("number"=c(""), "risk.calculations"=c(""), "curr.count"=c(""),"orig.count"=c(""),
"curr.pct"=c(""),"orig.pct"=c(""),stringsAsFactors=FALSE), container=tmp, width=280, height=250, expand=TRUE)
keyvariableriskgraph = ggraphics(container=tmp, width=280, height=200)
keyvariableFreqGroup <- ggroup(container=tmp, width=280, height=250, expand=TRUE)
keyvariableFreqGroup <- ggroup(container=tmp, width=280, height=250, expand=TRUE,horizontal=FALSE)
glabel("10 combinations of categories with highest risk", container=keyvariableFreqGroup)
keyvariableFreqTable <- gtable(data.frame("Frequency"=c(""),stringsAsFactors=FALSE), container=keyvariableFreqGroup, width=280, height=250, expand=TRUE)
putd("keyvariableFreqTable", keyvariableFreqTable)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment