R/extend_var.R

In metaHelper: Transforms Statistical Measures Commonly Used for Meta-Analysis

#' Extends the length of a variable
#' @noRd
#' @keywords internal
#'
#' @param variable variable that should be extended
#' @param length length of the returned variable
extend_var <- function(variable, length){
  if(length(variable) == 1){
    return(rep(variable, length))
  } else return(variable)
}

a <- "a"
b <- "b"

for(x in c(a, b)){
  assign(x, extend_var(x, 10))
}