library(DiagrammeR)
library(DiagrammeRsvg)
library(rsvg)


dot_text <- paste(readLines("network.dot"), collapse = "\n")
gr <- grViz(dot_text)

svg_txt <- export_svg(gr)
rsvg_pdf(charToRaw(svg_txt), file = "tree_output.pdf")