R/tar_load_fun.R

In matthiaskaeding/mt: Collection of helper functions

#' targets::tar_loads all arguments of function
#' Common usecase: tar_load all objects while debugging a make_<object> function
#'
#' @keywords drake
#' @param fun function, whose arguments we want to loadd
#' @export

tar_load_fun <- function(fun, envir = parent.frame()) {

  fun <- deparse(substitute(fun))
  sargs <- names(as.list(args(fun)))
  sargs <- setdiff(sargs, c("", "..."))
  for (sarg in sargs) {
    try(targets::tar_load_raw(sarg, envir = envir))
  }
}