fix(cover image): allow the spp_image path to properly function and a…

…djust the size of spp img when very large #62 (#104)
nmfs-ost · Dec 12, 2024 · c134ae4 · c134ae4
1 parent 2b9a914
commit c134ae4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/create_template.R b/R/create_template.R
@@ -619,11 +619,10 @@ create_template <- function(
       if (add_image) {
         # extract image name
         new_img <- sapply(strsplit(spp_image, "/"), utils::tail, 1)
-
         yaml <- paste0(
           yaml,
           # image as pulled in from above
-          "cover: ", new_img, "\n"
+          "cover: support_files/", new_img, "\n"
         )
       } else if (spp_image == "") {
         yaml <- paste0(

diff --git a/R/utils_tex.R b/R/utils_tex.R
@@ -23,7 +23,7 @@ create_titlepage_tex <- function(office = "",
   # Add alt text to cover page image
   line_before <- grep("\\$if\\(cover)\\$", lines)
   cp_alt <- paste(
-    "\\pdftooltip{\\includegraphics{$cover$}}{",
+    "\\pdftooltip{\\includegraphics[width=6in]{$cover$}}{",
     "An illustration of ", species,
     "}",
     sep = ""