hmp report card with plot on bottom, correct strata delineation #4

R/figs.R

@@ -504,11 +504,17 @@ dev.off()
 p1 <- show_hmpreport(acres = acres, subtacres = subtacres, hmptrgs = hmptrgs, typ = 'targets',
                      strata = 'Subtidal', ycollapse = T, xang = 45, twocol = T)
 p2 <- show_hmpreport(acres = acres, subtacres = subtacres, hmptrgs = hmptrgs, typ = 'targets',
-                     strata = c('Intertidal', 'Supratidal'), ycollapse = T, xang = 45, twocol = T, totintertid = F)
+                     strata = c('Intertidal', 'Supratidal'), ycollapse = T, xang = 45, twocol = T, totintertid = F) + 
+  theme(
+    plot.margin = unit(c(5.5, 20.5, 5.5, 5.5), 'pt')
+    )
 
 p <- p1 + p2 + plot_layout(ncol = 2, guides = 'collect', widths = c(0.6, 1)) & 
   labs(title = NULL) &
-  theme(plot.background = element_rect(fill = 'transparent', colour = NA))
+  theme(
+    plot.background = element_rect(fill = 'transparent', colour = NA), 
+    legend.position = 'bottom'
+    )
 
 png(here('docs/figs/hmpreport.png'), height = 6, width = 7, units = 'in', res = 500)
 print(p)

docs/summaries.html

@@ -7,7 +7,7 @@
 <meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes">
 
 <meta name="author" content="Dr.&nbsp;Marcus Beck, mbeck@tbep.org">
-<meta name="dcterms.date" content="2024-11-21">
+<meta name="dcterms.date" content="2024-11-22">
 
 <title>Habitat Restoration and Enhancement Project Summary</title>
 <style>
@@ -75,7 +75,7 @@
     <div>
     <div class="quarto-title-meta-heading">Published</div>
     <div class="quarto-title-meta-contents">
-      <p class="date">November 21, 2024</p>
+      <p class="date">November 22, 2024</p>
     </div>
   </div>
 
@@ -701,7 +701,7 @@ <h3 class="anchored" data-anchor-id="total-2024-projects">Total 2024 projects</h
 });
 </script>
 </div> <!-- /content -->
-<script>var lightboxQuarto = GLightbox({"closeEffect":"zoom","loop":false,"selector":".lightbox","openEffect":"zoom","descPosition":"bottom"});
+<script>var lightboxQuarto = GLightbox({"openEffect":"zoom","selector":".lightbox","closeEffect":"zoom","loop":false,"descPosition":"bottom"});
 window.onload = () => {
   lightboxQuarto.on('slide_before_load', (data) => {
     const { slideIndex, slideNode, slideConfig, player, trigger } = data;