cvrcalc_gui: GUI for the cvrcalc package
In cvrcalc: Cardiovascular Risk Calculator

Description Usage Details Examples

A concise (1-5 lines) description of what the function does. cvrclac_gui() es una funci<f3>n que llama a un entorno

1	cvrcalc_gui()

If necessary, more details than the description above

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function () 
{
    modelos = c("Please, Select a model...", "Dorica", "Classic Framingham", 
        "Framingham-Wilson", "Regicor", "High Risk Score", "Low Risk Score")
    win = gwindow("CVR-CALC")
    group = ggroup(horizontal = FALSE, container = win)
    texto = glabel("A Cardiovascular Risk Calculator using estimation by Scores", 
        container = group, font.attr = list(style = "bold"))
    addSpring(group)
    addSpace(group, 15)
    modelo = gcombobox(modelos, container = group)
    addSpring(group)
    boton = gbutton("Run", container = group, handler = function(h, 
        ...) {
        eleccion = svalue(modelo)
        print(eleccion)
        if (eleccion == modelos[2]) 
            dorica()
        else if (eleccion == modelos[3]) 
            framingham_c()
        else if (eleccion == modelos[4]) 
            framingham_w()
        else if (eleccion == modelos[5]) 
            regicor()
        else if (eleccion == modelos[6]) 
            hrs()
        else if (eleccion == modelos[7]) 
            lrs()
        else print("Please, Select a model.")
    })
    mensaje_excel = "Please, Select the Excel file with the DATA to import..."
    mensaje_fin = "End of Process. Please, open de Excel file to view the results."
  }