perlからCytoscapeを利用し、jpegに保存

Pocket

PerlからCytoscapeを利用する というブログを発見!

以前から Cytoscapeは使わせて頂いたのだけど、

「ライブラリみたいに利用出来ればなぁ」

と思っていた。まさにこれ使えそう(^^)

Perlから利用出来るのであれば外部のプログラムでネットワーク図を画像に保存出来そう

ということで試してみた

こちらの RPC で Cytoscape を扱える perl のサンプルプログラムがある
これに以下のような記述を追加
参考はこちらのAPIを参考
CyViewUtilsに exportViewというファンクション発見

<br />
$done = $client-&amp;gt;call(<br />
    &quot;Cytoscape.createContinuousNodeVisualStyle&quot;,<br />
    $coder-&amp;gt;string(&quot;nr&quot;),<br />
    $coder-&amp;gt;string(&quot;Node Color&quot;),<br />
    [2.1, 2.51, 7.3, 8.2],<br />
    ['0F0FFF', '#0FFF0A', '#FF000A', '#0F000A', '#A000F0', '#AAFA0A'],<br />
);</p>
<p>$done = $client-&amp;gt;call(<br />
    &quot;Cytoscape.exportView&quot;,<br />
    $coder-&amp;gt;string(&quot;$networkID&quot;),   # identifier of the network<br />
    &quot;/tmp/hoge.jpg&quot;,<br />
    &quot;jpg&quot;,<br />
    &quot;2.0&quot;<br />
);</p>
<p>print &quot;\n&quot;;<br />

/tmp に hoge.jpg を作成します
画像を保存することには成功した

コメントを残す