# \donttest{
routes <- find_routes()
if (nrow(routes) >= 2) {
result <- ship(
source_path = routes$rscript_path[1],
target_path = routes$rscript_path[2],
dry_run = TRUE
)
print(result$plan)
}
# }
Run the code above in your browser using DataLab