Truncate PMFs longer than the data

To the length of the data and throw a warning rather than an error.
This change allows us to run on old right-truncation estimates.

R/fit_model.R

@@ -160,15 +160,24 @@ format_right_truncation <- function(pmf, data) {
     # silently removed if length of the PMF was longer than the data,
     # effectively eliminating the right-truncation correction
 
-    cli::cli_abort(
+    trunc_idx <- nrow(data) - 1
+    cli::cli_warn(
       c(
+        "Removing right-truncation PMF elements after {.val {trunc_idx}}",
         "Right truncation PMF longer than the data",
         "PMF length: {.val {length(pmf)}}",
         "Data length: {.val {nrow(data)}}",
-        "PMF can only be up to length as the data"
+        "PMF can only be up to the length of the data"
       ),
       class = "right_trunc_too_long"
     )
+    suppressWarnings({
+      EpiNow2::trunc_opts(
+        dist = EpiNow2::dist_spec(
+          pmf = pmf[seq_len(trunc_idx)]
+        )
+      )
+    })
   } else {
     suppressWarnings({
       EpiNow2::trunc_opts(