# NOT RUN {
sch <- sch_new()
sch_has_any_relation(sch) # FALSE
sch <- sch_new() %>%
sch_add_activity(1L, "A", 2L) %>%
sch_add_activity(2L, "B", 5L, 1L, direction = "pred")
sch_has_any_activity(sch) # TRUE
# }
Run the code above in your browser using DataLab