#' nominal 
#'
#' nominal 
#'
#'
#' @inheritParams common_attributes 
#'
#' @return a nominal list object
#'
#' @export
 nominal <- function(nonNumericDomain = NULL){ 
Filter(Negate(is.null),
 list(
nonNumericDomain = nonNumericDomain))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.