deps_target_recursive

deps_target_recursive.R

deps_target_recursive <- function(target, plan){

  deps <- deps_target(target, plan = plan, character_only = TRUE)

  target_itr <- function(deps, all_deps){

    new_deps <-
      purrr::map_dfr(.x = deps$name,
              .f = ~ drake:::deps_target_impl(.x, drake:::drake_config2(plan), character_only = TRUE)) %>%
      distinct() 

    if(nrow(new_deps) == 0) all_deps
    else target_itr(new_deps, bind_rows(all_deps, new_deps))

  }

  target_itr(deps, tibble(name = character(0), type = character(0), hash = character(0)))
}