if (FALSE) {
# Load a saved ggsem workflow
workflow_metadata <- readRDS("ggsem_workflow_20240101_120000.rds")
# Extract visualization data
viz_data <- ggsem_silent(workflow_metadata)
# Access the different components
points <- viz_data$points
lines <- viz_data$lines
annotations <- viz_data$annotations
loops <- viz_data$loops
}
Run the code above in your browser using DataLab