Revisión Sistemática de Software

Script

import javax.swing.JOptionPane;

JOptionPane.showMessageDialog(null, (message == void ? null : message), (title == void ? null : title),	JOptionPane.INFORMATION_MESSAGE);

answer = "answer";

Value

Value

Script

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

estudios = in1;
img = im;

answer = JOptionPane.showOptionDialog(null, null, (title == void ? null : title),
		JOptionPane.YES_NO_CANCEL_OPTION, JOptionPane.QUESTION_MESSAGE, new ImageIcon(ImageIO.read(new File(im))), new Object[]{"Decompose in Subgroups", "Create Report"}, null);
	

// Default decomposition
descomposicion = new String[estudios.size()];
for (i = 0; i< estudios.size(); i++)
	descomposicion[i] = "1";

test = (answer == 0);

Value

Script

library(meta)
prueba <- read.table("/home/elias/Desktop/prueba.txt", header=TRUE)

meta1 <- metacont(n.e, mean.e, sd.e, n.c, mean.c, sd.c, data=prueba, sm = "SMD", studlab=study)

q <- meta1$method
num <- length(prueba$mean.e)
r_plot <- "/tmp/r_plot"

png(r_plot, width = 720, height = num * 55)
forest(meta1, comb.random = FALSE, print.tau2 = FALSE, print.Q = TRUE, print.pval.Q = FALSE, rightcols = c("effect", "ci"), lab.e = "T01", lab.c = "T02", colgap.forest=unit(2,"cm"))
dev.off()

estudios <- meta1$studlab

# Store effect size in list
Num_estudies_subgroup  <- c(num)
TE_subgroup<- c(meta1$TE.fixed)

R Server

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("meta2.pdf"));
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("meta2.pdf");
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";

Value

Value

Script

import javax.swing.JOptionPane;

JOptionPane.showMessageDialog(null, (message == void ? null : message), (title == void ? null : title),	JOptionPane.INFORMATION_MESSAGE);

answer = "answer";

Script

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

dec = Descomposición;
studies = estudios;
image = img;

Script

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

dec = Descomposición;
image = img;
subgroups = Num_estudies_subgroup;
effect_sizes_array = effect_sizes;
dummy = test;