# NOT RUN {
write.csv(mtcars, file = "mtcars.csv", row.names = FALSE)
targets::tar_script(
list(
targets::tar_target(file1,
"mtcars.csv", format = "file"),
targets::tar_target(input1,
read.csv(file1)),
targets::tar_target(result1,
sum(input1$mpg)),
targets::tar_target(result2,
mean(input1$mpg)),
targets::tar_target(result3,
max(input1$mpg)),
targets::tar_target(result4,
min(input1$mpg)),
targets::tar_target(merge1,
paste(result1, result2, result3, result4))
),
ask = FALSE)
bs <- cr_buildstep_targets_multi()
# only create the yaml
par_build <- cr_build_targets(bs, path = NULL)
par_build
# clean up example
unlink("mtcars.csv")
unlink("_targets.R")
# }
# NOT RUN {
# run it immediately in cloud
cr_build_targets(bs, execute="now")
# create a yaml file for use in build triggers
cr_build_targets(bs)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab