Fix iCov

nlmixr2 · Nov 30, 2023 · ffb37e1 · ffb37e1
1 parent da69c43
commit ffb37e1
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/rxData.cpp b/src/rxData.cpp
@@ -2837,7 +2837,7 @@ static inline void rxSolve_ev1Update(const RObject &obj,
     if (nobs == 0){
       // KEEP/DROP?
       if (rxSolveDat->hasICov) {
-        Rf_warning(R_NilValue, "iCov ignored when there are no samples/observations in the input dataset");
+        Rf_warningcall(R_NilValue, "'iCov' ignored when there are no samples/observations in the input dataset");
       }
       List ev1a = etTrans(as<List>(ev1), obj, rxSolveDat->hasCmt,
                           false, false, true, R_NilValue,
@@ -4679,8 +4679,7 @@ SEXP rxSolve_(const RObject &obj, const List &rxControl,
   rxSolve_t rxSolveDat0;
   rxSolve_t* rxSolveDat = &rxSolveDat0;
   RObject object;
-  rxSolveDat->hasICov = Rf_isNull(rxControl[Rxc_iCov]);
-
+  rxSolveDat->hasICov = !Rf_isNull(rxControl[Rxc_iCov]);
   rxSolveDat->updateObject = asBool(rxControl[Rxc_updateObject], "updateObject");
   rxSolveDat->isRxSolve = rxIs(obj, "rxSolve");
   rxSolveDat->isEnvironment = rxIs(obj, "environment");