fixed patchwork suggests

rmk118 · Oct 21, 2024 · 9073a61 · 9073a61
1 parent 45182cd
commit 9073a61
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 10 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -31,6 +31,7 @@ RoxygenNote: 7.3.2
 Suggests: 
     knitr,
     rmarkdown,
+    patchwork,
     testthat (>= 3.0.0)
 Config/testthat/edition: 3
 VignetteBuilder: knitr
diff --git a/vignettes/classification.Rmd b/vignettes/classification.Rmd
@@ -37,7 +37,6 @@ library(dplyr)
 library(ggplot2)
 library(tidyr)
 library(purrr)
-library(patchwork)
 
 knitr::opts_chunk$set(message = FALSE)
 ```
@@ -109,14 +108,27 @@ fc_infl_pt <- fc %>% mutate(pred_mat = as.factor(if_else(y/x > disc, 1, 0)),
 ```
 
 ```{r}
-(ggplot() +
-  geom_point(data = fc_infl_pt, aes(x, y, color = mature), alpha = 0.4) +
-  labs(x = "CW (mm)", y = "CH (mm)", title = "True maturity") +
-  mytheme) +
-(ggplot() +
-  geom_point(data = fc_infl_pt, aes(x, y, color = pred_mat), alpha = 0.4) +
-  labs(x = "CW (mm)", y = "CH (mm)", title = "Predicted maturity") +
-  mytheme)
+
+if (rlang::is_installed("patchwork")) {
+  (ggplot() +
+      geom_point(data = fc_infl_pt, aes(x, y, color = mature), alpha = 0.4) +
+      labs(x = "CW (mm)", y = "CH (mm)", title = "True maturity") +
+      mytheme) +
+    (ggplot() +
+        geom_point(data = fc_infl_pt, aes(x, y, color = pred_mat), alpha = 0.4) +
+        labs(x = "CW (mm)", y = "CH (mm)", title = "Predicted maturity") +
+        mytheme)
+} else {
+  ggplot() +
+    geom_point(data = fc_infl_pt, aes(x, y, color = mature), alpha = 0.4) +
+    labs(x = "CW (mm)", y = "CH (mm)", title = "True maturity") +
+    mytheme
+  
+  ggplot() +
+    geom_point(data = fc_infl_pt, aes(x, y, color = pred_mat), alpha = 0.4) +
+    labs(x = "CW (mm)", y = "CH (mm)", title = "Predicted maturity") +
+    mytheme
+}
 ```
 
 ```{r}

diff --git a/vignettes/two-line.Rmd b/vignettes/two-line.Rmd
@@ -81,7 +81,11 @@ stevens_est
 
 # Two-line with logistic transition
 
-# chngpt stegmented
+```{r}
+tll_est <- two_line_logistic(fc, "x", "y", verbose = FALSE)
+tll_est
+```
+
 
 
 ## References