Create Local Citation Graph

Wsdl

Wsdl Operation

Value

Value

Xpath Expression

/return/citationList/citation/id

Script

String edgelist="";

for(int i=1; i<=citations.size(); i++) edgelist=edgelist+i+" 0"+"\n";
for(int i=citations.size()+1; i<=citations.size()+references.size(); i++) edgelist=edgelist+"0 "+i+"\n";

Script

require(igraph); # use the igraph package

png("citation_graph.png", width=512, height=512);

my_citation_graph<-read.graph(input_file, format="edgelist"); # read edgelist ("a b" means a -> b or that paper a cites paper b)

palette(rainbow(3)); # use rainbow colors for the layers
lay=layout.sugiyama(my_citation_graph,layers=NULL); # automatically assign layers
plot(my_citation_graph, 
     layout=lay$layout,
     vertex.size=6, 
     vertex.label=NA, # NA omits labels
     vertex.color=lay$layout[,2],
      edge.arrow.size=0.5,
     edge.color="black"
);

dev.off();

R Server

Wsdl

Wsdl Operation

Xpath Expression

/return/referenceList/reference[id]/id

Script

  BufferedWriter out;
  if (encoding == void) {
  	out = new BufferedWriter(new FileWriter(outputFile));
  }
  else {
  	out = new BufferedWriter(new OutputStreamWriter(new FileOutputStream(outputFile), encoding)); 
  }
out.write(filecontents);
out.flush();
out.close();
outputFile = filecontents;

Value