R/assign0.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' Assign multiple values to multiple variables
#'
#' @param var
#' @param val
#' @param default
#'
#' @return
#' @export
#'
assign0 <- function(var, val, default = NA) {
  if (length(var) > length(val)) {
    assign0(var[1:length(val)], val)
    assign0(var[(length(val) + 1):length(var)], rep(default, length(var) -
                                                      length(val)))
  }else{
    for (i in 1:length(val)) {
      assign(var[i], val[i], envir = sys.frame())
    }
  }

}