From c4c1d86cd91f638c4a59c029550f0906391a3d09 Mon Sep 17 00:00:00 2001
From: jtimonen <juho.timonen@iki.fi>
Date: Sun, 31 Aug 2025 17:52:29 +0300
Subject: [PATCH 1/4] use is_ggplot() in tests

---
 DESCRIPTION                         | 4 ++--
 tests/testthat/test_misc-invgamma.R | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 3b9ead7c..e253d5c0 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: lgpr
 Title: Longitudinal Gaussian Process Regression
-Version: 1.2.4
+Version: 1.2.5
 Authors@R:
     c(person(given = "Juho",
            family = "Timonen",
@@ -48,7 +48,7 @@ LinkingTo:
     StanHeaders (>= 2.26.0)
 SystemRequirements: GNU make
 NeedsCompilation: yes
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Suggests:
     knitr,
     rmarkdown,
diff --git a/tests/testthat/test_misc-invgamma.R b/tests/testthat/test_misc-invgamma.R
index 50cb59b6..0f656d57 100644
--- a/tests/testthat/test_misc-invgamma.R
+++ b/tests/testthat/test_misc-invgamma.R
@@ -31,7 +31,7 @@ test_that("plotting the inverse gamma distribution works", {
   p2 <- plot_invgamma(a, b, return_quantiles = TRUE)
   c1 <- as.character(class(p1))
   c2 <- as.character(class(p2$plot))
-  expect_equal(c1, c("gg", "ggplot"))
-  expect_equal(c2, c("gg", "ggplot"))
+  expect_true(is_ggplot(c1))
+  expect_true(is_ggplot(c2))
   expect_error(plot_invgamma(a, b, IQR = 1.5))
 })

From 3827e019377677aff2f9aadcd4763cea25e48a55 Mon Sep 17 00:00:00 2001
From: jtimonen <juho.timonen@iki.fi>
Date: Sun, 31 Aug 2025 18:34:09 +0300
Subject: [PATCH 2/4] edit test

---
 tests/testthat/test_misc-invgamma.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test_misc-invgamma.R b/tests/testthat/test_misc-invgamma.R
index 0f656d57..2eb75c1d 100644
--- a/tests/testthat/test_misc-invgamma.R
+++ b/tests/testthat/test_misc-invgamma.R
@@ -31,7 +31,7 @@ test_that("plotting the inverse gamma distribution works", {
   p2 <- plot_invgamma(a, b, return_quantiles = TRUE)
   c1 <- as.character(class(p1))
   c2 <- as.character(class(p2$plot))
-  expect_true(is_ggplot(c1))
-  expect_true(is_ggplot(c2))
+  expect_true(ggplot2::is_ggplot(c1))
+  expect_true(ggplot2::is_ggplot(c2))
   expect_error(plot_invgamma(a, b, IQR = 1.5))
 })

From 80db6855115824fb63f677bf2cd5555c22bfc159 Mon Sep 17 00:00:00 2001
From: jtimonen <juho.timonen@iki.fi>
Date: Thu, 30 Oct 2025 19:29:11 +0200
Subject: [PATCH 3/4] fix test

---
 tests/testthat/test_misc-invgamma.R | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/tests/testthat/test_misc-invgamma.R b/tests/testthat/test_misc-invgamma.R
index 2eb75c1d..501e2784 100644
--- a/tests/testthat/test_misc-invgamma.R
+++ b/tests/testthat/test_misc-invgamma.R
@@ -29,9 +29,7 @@ test_that("plotting the inverse gamma distribution works", {
   b <- 3
   p1 <- plot_invgamma(a, b)
   p2 <- plot_invgamma(a, b, return_quantiles = TRUE)
-  c1 <- as.character(class(p1))
-  c2 <- as.character(class(p2$plot))
-  expect_true(ggplot2::is_ggplot(c1))
-  expect_true(ggplot2::is_ggplot(c2))
+  expect_true(ggplot2::is_ggplot(p1))
+  expect_true(ggplot2::is_ggplot(p2$plot))
   expect_error(plot_invgamma(a, b, IQR = 1.5))
 })

From 063fba783a9839910c5cc5bb82a2d606473bf858 Mon Sep 17 00:00:00 2001
From: jtimonen <juho.timonen@iki.fi>
Date: Thu, 30 Oct 2025 19:55:15 +0200
Subject: [PATCH 4/4] fix docs

---
 R/utils-create_model-prior.R | 2 +-
 man/prior_to_num.Rd          | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/utils-create_model-prior.R b/R/utils-create_model-prior.R
index 7ee6a1b2..d06aacdc 100644
--- a/R/utils-create_model-prior.R
+++ b/R/utils-create_model-prior.R
@@ -340,7 +340,7 @@ parse_prior_single <- function(desc, num) {
 #' @param desc Prior description as a named list, containing fields
 #' \itemize{
 #'   \item \code{dist} - Distribution name. Must be one of
-#'   {'uniform', 'normal', 'student-t', 'gamma', 'inv-gamma', 'log-normal'}
+#'   'uniform', 'normal', 'student-t', 'gamma', 'inv-gamma', or 'log-normal'
 #'   (case-insensitive)
 #'   \item \code{square} - Is the prior for a square-transformed parameter.
 #' }
diff --git a/man/prior_to_num.Rd b/man/prior_to_num.Rd
index 46b20704..ebe74f63 100644
--- a/man/prior_to_num.Rd
+++ b/man/prior_to_num.Rd
@@ -10,7 +10,7 @@ prior_to_num(desc)
 \item{desc}{Prior description as a named list, containing fields
 \itemize{
   \item \code{dist} - Distribution name. Must be one of
-  {'uniform', 'normal', 'student-t', 'gamma', 'inv-gamma', 'log-normal'}
+  'uniform', 'normal', 'student-t', 'gamma', 'inv-gamma', or 'log-normal'
   (case-insensitive)
   \item \code{square} - Is the prior for a square-transformed parameter.
 }