Issue with making a model with new_ode_model()

[cohendnli]

The new_ode_model() function seems to be broken for me. I am using R 4.2.1 ? Is this potentially the issue?

 pk1 <- new_ode_model(model = "pk_1cmt_oral")
Error in if (txt < 0) return(ode_def_orig) : the condition has length > 1
> pk1 <- new_ode_model(code = "
+   dAdt[1] = -KA * A[1]
+   dAdt[2] = +KA * A[1] -(CL/V) * A[2]
+ ")
Error in if (txt < 0) return(ode_def_orig) : the condition has length > 1