912: fix LogisticNormalFixedMixture validation

.github/workflows/check.yaml

@@ -27,6 +27,7 @@ jobs:
     with:
       additional-env-vars: |
         _R_CHECK_CRAN_INCOMING_REMOTE_=false
+        NOT_CRAN=false
       additional-r-cmd-build-params: |
         --no-build-vignettes \
       additional-r-cmd-check-params: |
@@ -47,6 +48,9 @@ jobs:
     uses: insightsengineering/r.pkg.template/.github/workflows/test-coverage.yaml@main
     secrets:
       REPO_GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
+    with:
+      additional-env-vars: |
+        NOT_CRAN=false
   linter:
     if: github.event_name != 'push'
     name: SuperLinter 🦸‍♀️

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: crmPack
 Title: Object-Oriented Implementation of Dose Escalation Designs
-Version: 2.0.0
+Version: 2.0.1
 Authors@R: c(
     person("Daniel", "Sabanes Bove", , "[email protected]", role = c("aut", "cre")),
     person("Wai", "Yin Yeung", , "[email protected]", role = "aut"),

NEWS.md

@@ -1,3 +1,9 @@
+# Version 2.0.1
+
+### Bugfixes
+
+* The validation of `LogisticNormalFixedMixture` objects did not allow for a floating point calculation deviation in the sum of the weights when comparing them to 1, which was caught by the `M1mac` check on CRAN. This has been fixed now.
+
 # Version 2.0.0
 
 * This release signifies a major breaking revamp of the package. Over several years, the package has undergone significant cleanup, tests writing and refactoring efforts. The package has thereby reached a major milestone and currently includes:

R/Model-validity.R

@@ -118,7 +118,7 @@ v_model_logistic_normal_fixed_mix <- function(object) {
     "weights must be positive"
   )
   v$check(
-    sum(object@weights) == 1,
+    isTRUE(all.equal(sum(object@weights), 1)),
     "weights must sum to 1"
   )
   v$check(

tests/testthat/_snaps/Design-methods.md → tests/testthat/_snaps/Linux/Design-methods.md

@@ -2494,7 +2494,7 @@
 
 # tidy-DualDesign works correctly
 
-    WAoAAAACAAQDAgACAwAAAAMTAAAACAAAAxMAAAALAAADEwAAAAEAAAAOAAAAAT+EeuFHrhR7
+    WAoAAAACAAQFAQACAwAAAAMTAAAACAAAAxMAAAALAAADEwAAAAEAAAAOAAAAAT+EeuFHrhR7
     AAAEAgAAAAEABAAJAAAABWNsYXNzAAAAEAAAAAMABAAJAAAABnRibF9kZgAEAAkAAAADdGJs
     AAQACQAAAApkYXRhLmZyYW1lAAAEAgAAAAEABAAJAAAACXJvdy5uYW1lcwAAAA0AAAACgAAA
     AP////8AAAQCAAAAAQAEAAkAAAAFbmFtZXMAAAAQAAAAAQAEAAkAAAALc2lnbWEyYmV0YVcA

tests/testthat/_snaps/Rules-methods.md → tests/testthat/_snaps/Linux/Rules-methods.md

@@ -438,7 +438,7 @@
 
 # tidy-CohortSizeParts works correctly
 
-    WAoAAAACAAQDAQACAwAAAAMTAAAAAgAAAA0AAAACAAAAAQAAAAIAAAANAAAAAgAAAAEAAAAD
+    WAoAAAACAAQFAQACAwAAAAMTAAAAAgAAAA0AAAACAAAAAQAAAAIAAAANAAAAAgAAAAEAAAAD
     AAAEAgAAAAEABAAJAAAABWNsYXNzAAAAEAAAAAQABAAJAAAAE3RibF9Db2hvcnRTaXplUGFy
     dHMABAAJAAAABnRibF9kZgAEAAkAAAADdGJsAAQACQAAAApkYXRhLmZyYW1lAAAEAgAAAAEA
     BAAJAAAACXJvdy5uYW1lcwAAAA0AAAACgAAAAP////4AAAQCAAAAAQAEAAkAAAAFbmFtZXMA