Revisión Sistemática de Software

Value

Value

Script

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;

public class SwingFileChooserDemo extends JDialog implements ActionListener {
  JButton okButton;
  JTextArea met, fac, fac1, fac2;
  JLabel l;

  public SwingFileChooserDemo(String titulo, String msg) {
    super(null, titulo,true);
    setLayout(new BoxLayout(getContentPane(), BoxLayout.Y_AXIS));    
    
    add(Box.createRigidArea(new Dimension(0,5)));
    l = new JLabel(msg);
    l.setAlignmentX(0.5f);
    add(l);
    add(Box.createRigidArea(new Dimension(0,5)));
    
    met = new JTextArea(1, 15);
    JScrollPane logScrollPane = new JScrollPane(met);
    JPanel pan1 = new JPanel(); //use FlowLayout
    pan1.add(new JLabel("Metric"));
    pan1.add(logScrollPane);

    fac = new JTextArea(1, 15);
    JScrollPane logScrollPane2 = new JScrollPane(fac);
    JPanel pan2 = new JPanel(); //use FlowLayout
    pan2.add(new JLabel("Factor"));
    pan2.add(logScrollPane2);

    fac1 = new JTextArea(1, 15);
    JScrollPane logScrollPane3 = new JScrollPane(fac1);
    JPanel pan3 = new JPanel(); //use FlowLayout
    pan3.add(new JLabel("Level 1"));
    pan3.add(logScrollPane3);
    
    fac2 = new JTextArea(1, 15);
    JScrollPane logScrollPane4 = new JScrollPane(fac2);
    JPanel pan4 = new JPanel(); //use FlowLayout
    pan4.add(new JLabel("Level 2"));
    pan4.add(logScrollPane4);
        
    okButton = new JButton("Ok");
    okButton.addActionListener(this);

    add(pan1);
    add(pan2);
    add(pan3);
    add(pan4);
        
    add(okButton);
    }

  public void actionPerformed(ActionEvent e) {
	if (met.getText() == "" || fac.getText() == "" || fac1.getText() == "" || fac2.getText() == "") {
		JOptionPane.showMessageDialog(null, "Please fill out all the fields", "Cannot proceed with next screen",	JOptionPane.INFORMATION_MESSAGE);
	} else {
		setVisible(false);
	}
  }

  String getMet() {
  	return met.getText();
  }

  String getFac() {
  	return fac.getText();
  }

  String getFac1() {
  	return fac1.getText();
  }

  String getFac2() {
  	return fac2.getText();
  }

}

SwingFileChooserDemo frame = new SwingFileChooserDemo(title, message);
frame.setSize(600,265);
frame.setLocationRelativeTo(null);
frame.setVisible(true);
          
Metric = frame.getMet();
Factor = frame.getFac();
f1 = frame.getFac1();
f2 = frame.getFac2();

Script

if ("false".equals(test)) {
  throw new Exception("Test matches, aborting downstream processors");
}

dummy = test;

Script

if ("true".equals(test)) {
  throw new Exception("Test matches, aborting downstream processors");
}

dummy = test;

Script

import javax.swing.JOptionPane;
import javax.swing.*;
import java.awt.*;

a = JOptionPane.showOptionDialog(null, message, (title == void ? null : title),
		JOptionPane.YES_NO_CANCEL_OPTION, JOptionPane.INFORMATION_MESSAGE, null, new Object[]{"Create GPA", "Search Evidences"}, null);
	
answer = (a == 0);

Value

Script

if ("true".equals(test)) {
  throw new Exception("Test matches, aborting downstream processors");
}

dummy = test;

Script

if ("false".equals(test)) {
  throw new Exception("Test matches, aborting downstream processors");
}

dummy = test;
factor = Factor;
metric = Metric;
f1 = F1;
f2 = F2;

Script

import javax.swing.JOptionPane;
import javax.swing.*;
import java.awt.*;

a = JOptionPane.showOptionDialog(null, message, (title == void ? null : title),
		JOptionPane.YES_NO_CANCEL_OPTION, JOptionPane.INFORMATION_MESSAGE, null, new Object[]{"New GPA", "Reuse GPA"}, null);
	
answer = (a == 0);
studies = Studies;
aditional = Aditional;

Script

if ("false".equals(test)) {
  throw new Exception("Test matches, aborting downstream processors");
}

dummy = test;
factor = Factor;
metric = Metric;
f1 = F1;
f2 = F2;

Script

if ("true".equals(test)) {
  throw new Exception("Test matches, aborting downstream processors");
}

dummy = test;
studies = Studies;
aditional = Aditional;

Value

Value

Value

Script

library(grid)
setwd("/home/elias/Desktop/meta/R")
for (i in list.files()) source(i)

# Transform to data.frame
newdata <- function(rows, sep =",") {
  cnames <- strsplit(rows[[1]], sep)[[1]]
  info   <- Reduce(function(r, x) rbind(r, strsplit(x, sep)[[1]]), rows[-1], NULL)
  res    <- data.frame(info, stringsAsFactors = FALSE)
  colnames(res) <- cnames

  aggregate(res, by = list(ID = paste(res$study,res$factor)), head, 1)[,-1]
}
##
## Cast important columns
##
cast <- function(data)
{
  transform(data, n.e = as.numeric(n.e), mean.e = as.numeric(mean.e), n.c = as.numeric(n.c), mean.c = as.numeric(mean.c), sd.e = as.numeric(sd.e), sd.c = as.numeric(sd.c))
}
prueba <- cast(newdata(data))
f <- newdata(aditional)

m <- prueba$metric[1]
f1 <- prueba$f1[1]
f2 <- prueba$f2[1]

if (SM == "RRnp") {
meta1 <- metacont(n.e = n.e, mean.e = mean.e,   n.c = n.c, mean.c = mean.c, data=prueba, byvar= in1, sm = SM, aditional=f, studlab=study, metric=m, f1=f1, f2=f2)
} else {
meta1 <- metacont(n.e, mean.e, sd.e, n.c, mean.c, sd.c, data=prueba, byvar= in1, sm = SM, aditional= f, studlab=study, metric=m, f1=f1, f2=f2)
}

# Export png
r_plot_2 = "/tmp/r_plot.png"
height   <- 180 + 15*length(in1) + 60*length(unique(in1))
width    <- 800 + 25*length(colnames(f))
cols     <- unique(f$factor)
leftcols <- c("studlab", cols, "n.e", "mean.e", "sd.e", "n.c", "mean.c", "sd.c")
png(r_plot_2, width = width, height = height)
forest(meta1, comb.random = FALSE, print.tau2 = FALSE, print.Q = TRUE, print.pval.Q = FALSE, leftcols = leftcols, rightcols = c("effect", "ci"), lab.e = f1, lab.c = f2, colgap.forest=unit(2,"cm"), bylab="Subgroup", lab.c.attach.to.col = "mean.c", lab.e.attach.to.col = "mean.e")
dev.off()

evidences = evidences(meta1, in1)

R Server

Script

import javax.swing.JOptionPane;
import javax.swing.*;
import javax.swing.table.*;
import java.awt.*;
import java.io.File;
import javax.imageio.ImageIO;
import java.awt.image.BufferedImage;

JLabel scaleIfNecessary(String f) {
	Dimension     dim = Toolkit.getDefaultToolkit().getScreenSize();
	BufferedImage i1 = ImageIO.read(new File(f));
	int w = i1.getWidth();
	int h = i1.getHeight();
	
	// Scale i1 if the i1 is bigger than the screen
	if (w > dim.getWidth()/2 || h > dim.getHeight()/2) {
		Double scale = 0.7;
		int    new_w = (int) (w*scale);
		int    new_h = (int) (h*scale);
		Image  i2    = i1.getScaledInstance(new_w, new_h, Image.SCALE_SMOOTH);
		i1  = new BufferedImage(new_w, new_h, BufferedImage.TYPE_INT_RGB);
		Graphics g   = i1.createGraphics();
		g.drawImage(i2, 0, 0, new_w, new_h, null);
	}
		
	return new JLabel(new ImageIcon(i1));
}

JPanel box = new JPanel();
box.setLayout(new BoxLayout(box, BoxLayout.Y_AXIS));
JLabel plot = scaleIfNecessary(img);
plot.setAlignmentX(0.5f);

JScrollPane jspane = new JScrollPane(plot);
jspane.setMaximumSize(new Dimension(1000, 450)); 
box.add(jspane);

box.add(Box.createRigidArea(new Dimension(0, 20)));		
JLabel h = new JLabel("Subgroup Meta-Analysis"); 
h.setAlignmentX(0.5f);
box.add(h);
box.add(Box.createRigidArea(new Dimension(0, 10)));		

// Table 
TableModel tm = new DefaultTableModel();
tm.setColumnIdentifiers(new String[] { "Evidence", "Text", "Subgroup"});
for(i = 0; i < evidences.size(); i++)
	tm.addRow(new String[] { "E" + (i + 1), "
" + evidences.get(i) + "
", "A" + (i + 1) });	

// Table configuration
JTable table   = new JTable(tm);
DefaultTableCellRenderer dtcr = new DefaultTableCellRenderer();
dtcr.setVerticalAlignment(SwingConstants.TOP);
table.getColumn("Evidence").setCellRenderer(dtcr);
table.getColumn("Text").setCellRenderer(dtcr);
table.getColumn("Subgroup").setCellRenderer(dtcr);
table.setRowHeight(50);
table.setAutoResizeMode(JTable.AUTO_RESIZE_OFF);
TableColumn col = table.getColumnModel().getColumn(1);
col.setPreferredWidth(700);
JScrollPane jp = new JScrollPane();
jp.setPreferredSize(new java.awt.Dimension(860, 180));
jp.setViewportView(table);
JPanel boxT = new JPanel();
boxT.setPreferredSize(new java.awt.Dimension(860, 180));
boxT.add(jp);
box.add(boxT);

pseudo_answer = JOptionPane.showOptionDialog(null, box, "Subgroup MetaAnalysis",
		JOptionPane.YES_NO_CANCEL_OPTION, JOptionPane.PLAIN_MESSAGE, null, 
		new Object[]{"Create Report"}, null);
	
// 0 is the second element of the array of buttons
answer =  (pseudo_answer == 0);
image = img;

Script

import java.awt.Desktop;
import java.io.File;
import java.io.FileOutputStream;
import java.util.Date;

import com.itextpdf.text.*;
import com.itextpdf.text.pdf.*;

Document document = new Document();
PdfWriter.getInstance(document, new FileOutputStream(p_path));
document.open();
		
Paragraph paragraph = new Paragraph("List of Evidences generated by the GPA");
paragraph.setAlignment(Element.ALIGN_CENTER);
document.add(paragraph);

document.add( Chunk.NEWLINE );

PdfPTable table = new PdfPTable(3);
float[] columnWidths = {1f, 2f, 1f};
table.setWidths(columnWidths);

PdfPCell c1 = new PdfPCell(new Phrase("ID_EV"));
c1.setHorizontalAlignment(Element.ALIGN_CENTER);
table.addCell(c1);

c1 = new PdfPCell(new Phrase("Evidence"));
c1.setHorizontalAlignment(Element.ALIGN_CENTER);
table.addCell(c1);

c1 = new PdfPCell(new Phrase("Subgroup"));
c1.setHorizontalAlignment(Element.ALIGN_CENTER);
table.addCell(c1);

table.setHeaderRows(1);

for (i = 0; i < evidences.size(); i++){
	table.addCell("E" + (i + 1));
	table.addCell("" + evidences.get(i));
	table.addCell("A" + (i + 1));
}

document.add(table);

document.add( Chunk.NEWLINE );

Paragraph paragraph2 = new Paragraph("Those evidences correspond to the following plot.");
paragraph2.setAlignment(Element.ALIGN_CENTER);
document.add(paragraph2);

Image image1 = Image.getInstance(image);
image1.scalePercent(60f);
image1.setAlignment(Image.MIDDLE);
document.add(image1);

document.close();
 
File pdfFile = new File(p_path);
if (pdfFile.exists()) {
	if (Desktop.isDesktopSupported()) {
		Desktop.getDesktop().open(pdfFile);
	} else {
		System.out.println("Awt Desktop is not supported!");
	}
}  else  {
	System.out.println("File is not exists!");
}
 
System.out.println("Done");

answer = "answer";
subgroups = descomposición;

Wsdl

Wsdl Operation