is_abs_unit.R

is_abs_unit <- function(x) UseMethod("is_abs_unit")

is_abs_unit.unit = function(x) {
	unit = attr(x, "valid.unit")
	if(unit %in% c(1:4, 7:24)) {
		return(TRUE)
	} else {
		return(FALSE)
	}
}

is_abs_unit.unit.list = function(x) {
	all(sapply(x, is_abs_unit))
}

is_abs_unit.unit.arithmetic = function(x) {
	nm = names(x)
	all(sapply(x, function(y) {
		if(is.character(y)) TRUE
		else if(is.null(y)) TRUE
		else is_abs_unit(y)
	}))
}