From 096b87a2bf612a5d68193bc8d05ac99b3c323c8c Mon Sep 17 00:00:00 2001
From: Sean Anderson <sean@seananderson.ca>
Date: Tue, 17 Oct 2023 16:44:04 -0700
Subject: [PATCH] INLAspacetime needs INLA

---
 DESCRIPTION | 1 +
 R/barrier.R | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/DESCRIPTION b/DESCRIPTION
index 00e8501a8..3567a7a2f 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -93,6 +93,7 @@ Suggests:
     ggplot2,
     inlabru,
     INLAspacetime,
+    INLA,
     knitr,
     rgdal,
     rmarkdown,
diff --git a/R/barrier.R b/R/barrier.R
index 9f1975e81..f8298e002 100644
--- a/R/barrier.R
+++ b/R/barrier.R
@@ -114,6 +114,9 @@ add_barrier_mesh <- function(spde_obj, barrier_sf, range_fraction = 0.2,
   if (!requireNamespace("INLAspacetime", quietly = TRUE)) {
     cli_abort("The INLAspacetime package must be installed to use this function.")
   }
+  if (!requireNamespace("INLAspacetime", quietly = TRUE)) {
+    cli_abort("The INLA package must be installed to use this function.")
+  } # b/c INLAspacetime uses it!!
 
   assert_that(
     is.numeric(range_fraction), range_fraction <= 1,