fix: add missing L parameter to primarycensored_lpmf Stan call

primarycensored >= 1.4.0 added a left truncation parameter (L) to all
Stan function signatures. The marginal model Stan template was missing
this parameter, causing Stan compilation failures for all users.

Also adds primarycensored >= 1.4.0 version bound to DESCRIPTION and
extends check-cmdstan CI to cover marginal model syntax.

Closes #583

Author: seabbs-bot

.github/workflows/check-cmdstan.yaml

@@ -52,7 +52,7 @@ jobs:
           cmdstan-version: 'latest'
           num-cores: 2
 
-      - name: Compile model and check syntax
+      - name: Check latent model syntax
         run: |
           dummy_obs <- dplyr::tibble(
             pdate_lwr = as.Date("2020-01-01"),
@@ -77,3 +77,29 @@ jobs:
             all(message == "Stan program is syntactically correct")
           )
         shell: Rscript {0}
+
+      - name: Check marginal model syntax
+        run: |
+          dummy_obs <- dplyr::tibble(
+            pdate_lwr = as.Date("2020-01-01"),
+            sdate_lwr = as.Date("2020-02-01")
+          )
+          dummy_obs <- epidist::as_epidist_linelist_data(dummy_obs)
+          dummy_obs <- suppressMessages(
+            epidist::as_epidist_marginal_model(dummy_obs)
+          )
+          stancode <- epidist::epidist(
+            data = dummy_obs, fn = brms::make_stancode
+          )
+          mod <- cmdstanr::cmdstan_model(
+            stan_file = cmdstanr::write_stan_file(stancode), compile = FALSE
+          )
+          message <- capture.output(
+            mod$check_syntax(pedantic = FALSE),
+            type = "message"
+          )
+          stopifnot(
+            length(message) != 0 &&
+            all(message == "Stan program is syntactically correct")
+          )
+        shell: Rscript {0}

DESCRIPTION

@@ -41,7 +41,7 @@ Imports:
     cli,
     dplyr,
     lubridate,
-    primarycensored,
+    primarycensored (>= 1.4.0),
     purrr,
     rstan (>= 2.26.0),
     stats,

inst/stan/marginal_model/functions.stan

@@ -23,7 +23,7 @@
                             data real y_upper, array[] real primary_params) {
 
   return primarycensored_lpmf(
-      y | dist_id, {dpars_B}, pwindow_width, y_upper, relative_obs_t,
-      primary_id, primary_params
+      y | dist_id, {dpars_B}, pwindow_width, y_upper,
+      0, relative_obs_t, primary_id, primary_params
     );
 }