Removes $trimmed flags from model or specific elements.
Examples
if (FALSE) { # \dontrun{
# Untrim everything
model <- untrim_model(model)
# Untrim only variables and equations
model <- untrim_model(model, elements = c("variables", "equations"))
} # }
