ml <- provide_make_list()
visualize(ml, root = "all.Rout")
i <- which(sapply(ml, "[[", "target") == "b1.Rout")
ml[[i]]["alias"] <- "b1"
t <- get_target(ml, "b1")
ml <- remove_target(ml, t[["target"]])
visualize(ml)
ml <- add_target(ml, target = t[["target"]], code = t[["code"]],
sink = t[["sink"]],
prerequisite_to = "a1.Rout", alias = NULL)
all.equal(ml, provide_make_list())
Run the code above in your browser using DataLab