tree <- system.file("extdata",
"tree_of_itol_templates.tree",
package = "itol.toolkit")
hub <- create_hub(tree = tree)
data("template_groups")
df_group <- data.frame(id = unique(template_groups$group),
data = unique(template_groups$group))
## create unit
unit_1 <- create_unit(data = df_group,
key = "Quickstart_1",
type = "TREE_COLORS",
subtype = "clade",
line_type = c(rep("normal",4),"dashed"),
size_factor = 5,
tree = tree)
unit_2 <- create_unit(data = df_group,
key = "Quickstart_2",
type = "DATASET_COLORSTRIP",
tree = tree)
## write hub
hub <- hub + unit_1 + unit_2
write_hub(hub,tempdir())
Run the code above in your browser using DataLab