set.seed(42)
toy_data <- simulateToyData()
net <- buildRepSeqNetwork(
toy_data,
seq_col = "CloneSeq",
node_stats = TRUE,
cluster_stats = TRUE,
color_nodes_by = c("transitivity", "SampleID")
)
# save as single RDS file
saveNetwork(
net,
output_dir = tempdir(),
verbose = TRUE
)
saveNetwork(
net,
output_dir = tempdir(),
output_type = "individual",
verbose = TRUE
)
# \dontshow{
# clean up temp files
file.remove(
file.path(
tempdir(),
c("MyRepSeqNetwork_NodeMetadata.csv",
"MyRepSeqNetwork_ClusterMetadata.csv",
"MyRepSeqNetwork_EdgeList.txt",
"MyRepSeqNetwork_AdjacencyMatrix.mtx",
"MyRepSeqNetwork_Details.txt",
"MyRepSeqNetwork_Plots.rda",
"MyRepSeqNetwork_GraphLayout.txt",
"MyRepSeqNetwork.pdf",
"MyRepSeqNetwork.rds"
)
)
)
# }
Run the code above in your browser using DataLab