R/rune_list.R

In asshah4/axe: Formula Spells

# Parameter Level Estimates ----------------------------------------------------

#' Holding a list of rune_list
#' @keywords internal
#' @noRd
new_rune_list <- function(x = list()) {
	new_list_of(x, ptype = distill_rune(), class = "rune_list")
}

#' Rune list
#' @param x List of runes
#' @export
rune_list <- function(x = unspecified(), ...) {

	if (length(x) == 0) {
		return(new_rune_list())
	}

	# Return list_of
	new_rune_list(x)
}

#' @export
vec_ptype_full.rune_list <- function(x, ...) "rune_list"

#' @export
vec_ptype_abbr.rune_list <- function(x, ...) "rnls"