Commit 8379331c authored by Alec L. Robitaille's avatar Alec L. Robitaille 🚲

nvm simpler checkdup

reverts 7333ec08.
parent b967d6a4
Pipeline #42466635 passed with stages
in 6 minutes and 44 seconds
......@@ -184,7 +184,8 @@ model_params <- function(DT,
c(id, year, unlist(whichchar)),
c('id', 'yr', names(whichchar)))
if (any(comb[, .N > 1, by = c(id, year)])) {
if (any(comb[, .(checkdup = .N > 1),
by = c(id, year)]$checkdup)) {
stop('non unique values for id (and year),
check duplicate starting parameters')
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment