R/loadd_fun.R

In matthiaskaeding/mt: Collection of helper functions

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

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

  sargs <- names(as.list(args(fun)))
  sargs <- setdiff(sargs, c("", "..."))
  drake::loadd(list = sargs, envir = envir)

}