inst/templates/value-object/template.R

In tidylab/ddd: Build Applications that Match their Business Domain

#' @title {name} Value Object
#' @return (`data.frame`)
#' @export
#' @family {domain}
#' @keywords internal
#' @noRd
{name} <- function(
    size = NA_character_,
    slices = 4L,
    toppings = list(),
    takeaway = NA
){{
    stopifnot(is.character(size))
    stopifnot(is.integer(slices), slices > 0, slices <= 8)
    stopifnot(is.list(toppings))
    stopifnot(is.logical(takeaway))

    tibble::tibble(
        size = size,
        slices = slices,
        toppings = toppings,
        takeaway = takeaway
    )
}}