Commit f90190fd authored by Yong Liu's avatar Yong Liu

Refs #5751

parent b21c5202
......@@ -5321,7 +5321,8 @@ compareDataExport <- function(comparedScript, len, ...){
if(!is.null(sdcObject@deletedVars)) {
data <- data[!names(data) %in% sdcObject@deletedVars]
}
varTab = gtable(data.frame(vars=names(data), stringsAsFactors=FALSE), multiple=TRUE)
curr_data_numeric <- sapply(data, is.numeric)
varTab = gtable(data.frame(vars=names(data[curr_data_numeric]), stringsAsFactors=FALSE), multiple=TRUE)
size(varTab) <- c(120,200)
add(tmp, varTab)
btmp = ggroup(container=tmp, horizontal=FALSE)
......@@ -5336,8 +5337,8 @@ compareDataExport <- function(comparedScript, len, ...){
tmp = gframe('<span weight="bold" size="medium">Independent Variable Selection</span>',
container=mainframe,markup=TRUE)
keyVars <- ActiveSdcVarsStr()
sTab = gtable(data.frame(vars=c(keyVars, ActiveSdcVarsStr("numVars")), stringsAsFactors=FALSE), multiple=TRUE)
skeyvar <- c(ActiveSdcVarsStr(), ActiveSdcVarsStr("numVars"))
sTab = gtable(data.frame(vars=skeyvar[skeyvar %in% names(data[curr_data_numeric])], stringsAsFactors=FALSE), multiple=TRUE)
size(sTab) <- c(120,200)
add(tmp, sTab)
btmp = ggroup(container=tmp, horizontal=FALSE)
......
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