Commit 55483ef7 authored by Yong Liu's avatar Yong Liu

Refs #6195

parent f76d3017
......@@ -396,6 +396,9 @@ sdcGUI <- function() {
tabDat <- tabDat[ind,]
tabDat$risk <- round(tabDat$risk,5)
tabDat <- tabDat[order(as.numeric(tabDat$risk),decreasing=TRUE),]
if(nrow(tabDat) > 10) {
tabDat <- tabDat[1:10,]
}
delete(keyvariableFreqGroup, getd("keyvariableFreqTable"))
putd("keyvariableFreqTable",gtable(data.frame(apply(tabDat,2,function(x)as.character(x)),stringsAsFactors=FALSE), container=keyvariableFreqGroup,expand=TRUE))
svalue(nbMain) <- 2
......
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