R/update_dots.R

In saros.base: Base Tools for Semi-Automatic Reporting of Ordinary Surveys

update_dots <- function(dots = list(),
                        caller_function = NULL,
                        allow_unique_overrides = TRUE) {


  dots <- utils::modifyList(
    x = formals(draft_report)[!names(formals(draft_report)) %in% .saros.env$ignore_args],
    val = dots[!names(dots) %in% c("...")], keep.null = TRUE
  )

  if(isTRUE(allow_unique_overrides) &&
     rlang::is_list(dots[[caller_function]])) {
    dots <- utils::modifyList(
      x = dots,
      val = dots[[caller_function]], keep.null = TRUE
    )
    dots[[caller_function]] <- NULL
  }

  dots_nms <- names(dots)
  dots <- lapply(seq_along(dots), function(i) {
    if(!any(.saros.env$ignore_args == names(dots)[i])) {
      out <- eval(dots[[i]])
    } else {
      out <- dots[[i]]
    }
    if(names(dots)[i] %in% c("data_label", "showNA")) out <- out[1]
    out
  })
  names(dots) <- dots_nms
  dots
}