Commit ba896dca authored by Yong Liu's avatar Yong Liu

Refs #5751, add line regression menu, and remove action panel.

parent 8dfd6688
......@@ -5122,15 +5122,7 @@ compareDataExport <- function(comparedScript, len, ...){
}
updateOutput <- function(action, ...) {
insert(middlebottomText, action);
sdc <- getd("sdcObject")
insert(middlebottomText, capture.output(print("originalRisk:"), str(sdc@originalRisk),
print("risk:"),str(sdc@risk),
print("utility:"),str(sdc@utility),
print("localSuppression:"),str(sdc@localSuppression),
print("options:"),str(sdc@options),
print("additionalResults:"),str(sdc@additionalResults),
print("pram:"),str(sdc@pram)));
}
# GUI - Quit
......@@ -5483,7 +5475,7 @@ compareDataExport <- function(comparedScript, len, ...){
mbar$"Disclosure Risks and Data Utility"$"Categorical Key Variables"$"L-diversity"$handler= function(...) ldiv1()
mbar$"Disclosure Risks and Data Utility"$"Categorical Key Variables"$"PRAM output"$handler = viewpram1
mbar$"Disclosure Risks and Data Utility"$"Categorical Key Variables"$"Linear Regression"$handler= function(...) linearRegression()
mbar$"Disclosure Risks and Data Utility"$"Continuous Key Variables"$handler= function(...)helpR("localSuppression")
mbar$"Disclosure Risks and Data Utility"$"Continuous Key Variables"$"Linear Regression"$handler= function(...) linearRegression()
mbar$"Disclosure Risks and Data Utility"$"Linear Regression"$handler= function(...) linearRegression()
mbar$"Reports and Logs"$"Generate Report"$handler = exportReport
......@@ -5583,9 +5575,6 @@ compareDataExport <- function(comparedScript, len, ...){
middleGroup = ggroup(container=rightGroup, horizontal=FALSE, expand=TRUE)
nbMain <- gnotebook(container=middleGroup, closebuttons=FALSE, expand=TRUE)
middlebottom <- gframe("SDC Actions Output", container = middleGroup, width = NULL, height = 200, expand=FALSE)
middlebottomText <- gtext(text = "", wrap = TRUE, handler = NULL, container = middlebottom, expand=TRUE)
rightFrame = gframe("", container = rightgp)
size(rightFrame) <- c(100, 400)
rightlayout <- glayout(container=rightFrame, expand=TRUE)
......
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