R/utils.R

In teramonagi/scdv: SCDV : Sparse Composite Document Vectors using soft clustering over distributional representations

get_default <- function(func){
  x <- as.list(formals(func))
  purrr::keep(x, purrr::map_lgl(x, ~ !is.name(.x)))
}

overwrite_default <- function(func, args){
  default_args <- get_default(func)
  args_name <- names(args)
  result <- purrr::map(names(default_args), ~ if(.x %in% args_name){args[[.x]]}else{default_args[[.x]]})
  stats::setNames(result, names(default_args))
}