Mercurial > repos > dfornika > render_tree

view render_tree.R @ 1:9f0241ee55e8 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/dfornika/galaxytools/tree/master/tools/render_tree commit 8898f2229ec13917b7d96e20725f3871d9d93e90-dirty
author dfornika
date Sat, 29 Jun 2019 00:27:55 -0400
parents 342fe8c2d8bb
children 96406ba2696b
line wrap: on
line source

#!/usr/bin/env Rscript

suppressMessages(
  library(ggtree)
)

args = commandArgs(trailingOnly=TRUE)

tree <- read.tree(args[1])

tree_plot <- ggplot(tree, aes(x, y)) + 
  geom_tree() + 
  theme_tree2() +
  geom_tiplab(align=TRUE)

suppressMessages(
  ggsave(args[2], plot=tree_plot, device="png")
)