if (FALSE) {
# Requires a version of 'saber' that exports graph_svg().
v <- tempfile("vault-")
init_vault(v, rproj = FALSE, agent_instructions = FALSE)
ingest("Cites [[other]].", type = "articles", source = "demo",
vault = v)
svg <- vault_graph(v)
writeLines(svg, tempfile(fileext = ".svg"))
}
Run the code above in your browser using DataLab