R/name_function.R

In notsynonymous/SWA: A package to assist in devloping SEM metrics based on driver data

#' Takes the string "dat" and pastes an index
#' This function is mostly a DRY private function that helps generate the name of dataframes 
#' @name name_func
#' 
#' @param index A numeric vector of length 1 that takes an index. Intended to be used in loops for generating large batches of objects
#' 
#' @returns None
#' 
#' @examples
#' num <- c(1,2,3,4,5)
#' for(i in 1:length(num)){
#' 
#' 		assign(name_func(i), i)
#' }
#' ls()
#' @export
#' @md

name_func = function(index) {
	paste0("SWA", index)
}