m <- Container$new()
i <- Set$new(m, "i", records = paste0("i", 1:5))
p <- Parameter$new(m, "p", i, records = data.frame(i = c("i1", "i3", "i6"), value = c(1, 5, 7)))
dv <- p$getDomainViolations()[[1]]
sym_dv <- dv$symbol
dim_dv <- dv$dimension
domain_dv <- dv$domain
violation_dv <- dv$violations
Run the code above in your browser using DataLab