Release for v1.0

R/create_citation.R

@@ -117,30 +117,76 @@ create_citation <- function(
       "\n",
       "Please cite this publication as: \n",
       "\n",
-      "AUTHOR NAME. YEAR. ",
+      "[AUTHOR NAME]. [YEAR]. ",
       title, ". ", off_title, ", ",
-      "CITY, STATE. "
+      "[CITY], [STATE]. "
     )
-  } else if (office != "SEFSC") {
+
+    } else if (office == "AFSC") {
+      cit <- paste0(
+        "{{< pagebreak >}} \n",
+        "\n",
+        "Please cite this publication as: \n",
+        "\n",
+        author_list, ". ", year, ". ",
+        title,
+        ". North Pacific Fishery Management Council, Anchorage, AK. Available from ",
+        "https://www.npfmc.org/library/safe-reports/"
+      )
+
+    } else if (office == "NWFSC") {
+      cit <- paste0(
+        "{{< pagebreak >}} \n",
+        "\n",
+        "Please cite this publication as: \n",
+        "\n",
+        author_list, ". ", title, ".", year,
+         ". Prepared by [COMMITTEE]. [XX] p."
+      )
+
+    } else if (office == "PIFSC") {
+      cit <- paste0(
+        "{{< pagebreak >}} \n",
+        "\n",
+        "Please cite this publication as: \n",
+        "\n",
+        author_list, ". ", year, ". ",
+        title, ". NOAA Tech. Memo. [TECH MEMO NUMBER]",
+        ", ", "[XX] p."
+      )
+
+  } else if (office == "SEFSC") {
     cit <- paste0(
-      "{{< pagebreak >}} \n",
+      "'{{< pagebreak >}}' \n",
       "\n",
       "Please cite this publication as: \n",
       "\n",
-      author_list, ". ", year, ". ",
-      title, ". ", off_title, ", ",
-      loc_city, ", ", loc_state, ". "
+      "SEDAR. ", year, ". ", title, ". ",
+      "SEDAR, North Charleston SC. [XX] pp. ",
+      "available online at: http://sedarweb.org/"
     )
-  } else {
+
+    } else if (office == "SWFSC") {
+      cit <- paste0(
+        "{{< pagebreak >}} \n",
+        "\n",
+        "Please cite this publication as: \n",
+        "\n",
+        author_list, ", ", year, ". ", title,
+        ". Pacific Fishery Management Council, Portland, OR. Available from https://www.pcouncil.org/stock-assessments-and-fishery-evaluation-safe-documents/."
+      )
+
+  } else { # this includes NEFSC
     cit <- paste0(
-      "'{{< pagebreak >}}' \n",
+      "{{< pagebreak >}} \n",
       "\n",
       "Please cite this publication as: \n",
       "\n",
-      "SEDAR. ", year, ". ", title,
-      "SEDAR, North Charleston SC. XXpp. ",
-      "available online at: http://sedarweb.org/"
+      author_list, ". ", year, ". ",
+      title, ". ", off_title, ", ",
+      loc_city, ", ", loc_state, ". "
     )
+
   }
 
   # Add citation as .qmd to add into template

R/create_figures_doc.R

@@ -68,10 +68,10 @@ recruitment_alt_text <- recruitment_plot_rda$alt_text"),
         add_option = TRUE,
         chunk_op = c(
           glue::glue(
-            "fig-cap: recruitment_cap"
+            "fig-cap: !expr recruitment_cap"
           ),
           glue::glue(
-            "fig-alt: recruitment_alt_text"
+            "fig-alt: !expr recruitment_alt_text"
           )
         )
       ),
@@ -109,10 +109,10 @@ spawning_biomass_alt_text <- spawning_biomass_plot_rda$alt_text"),
         add_option = TRUE,
         chunk_op = c(
           glue::glue(
-            "fig-cap: spawning_biomass_cap"
+            "fig-cap: !expr spawning_biomass_cap"
           ),
           glue::glue(
-            "fig-alt: spawning_biomass_alt_text"
+            "fig-alt: !expr spawning_biomass_alt_text"
           )
         )
       ),
@@ -150,10 +150,10 @@ biomass_alt_text <- biomass_plot_rda$alt_text"),
         add_option = TRUE,
         chunk_op = c(
           glue::glue(
-            "fig-cap: biomass_cap"
+            "fig-cap: !expr biomass_cap"
           ),
           glue::glue(
-            "fig-alt: biomass_alt_text"
+            "fig-alt: !expr biomass_alt_text"
           )
         )
       ),
@@ -192,10 +192,10 @@ landings_alt_text <- landings_plot_rda$alt_text"),
         add_option = TRUE,
         chunk_op = c(
           glue::glue(
-            "fig-cap: landings_cap"
+            "fig-cap: !expr landings_cap"
           ),
           glue::glue(
-            "fig-alt: landings_alt_text"
+            "fig-alt: !expr landings_alt_text"
           )
         )
       ),
@@ -233,10 +233,10 @@ recruitment_deviations_alt_text <- recruitment_deviations_plot_rda$alt_text"),
         add_option = TRUE,
         chunk_op = c(
           glue::glue(
-            "fig-cap: recruitment_deviations_cap"
+            "fig-cap: !expr recruitment_deviations_cap"
           ),
           glue::glue(
-            "fig-alt: recruitment_deviations_alt_text"
+            "fig-alt: !expr recruitment_deviations_alt_text"
           )
         )
       ),
@@ -274,10 +274,10 @@ spawning_recruitment_alt_text <- spawning_recruitment_plot_rda$alt_text"),
         add_option = TRUE,
         chunk_op = c(
           glue::glue(
-            "fig-cap: spawning_recruitment_cap"
+            "fig-cap: !expr spawning_recruitment_cap"
           ),
           glue::glue(
-            "fig-alt: spawning_recruitment_alt_text"
+            "fig-alt: !expr spawning_recruitment_alt_text"
           )
         )
       ),

R/create_tables_doc.R

@@ -31,7 +31,7 @@ create_tables_doc <- function(resdir = NULL,
       add_chunk(
         paste0("rda_dir <- '", rda_dir, "/rda_files'"),
         label = "set-rda-dir-tbls",
-        eval = "false"
+        eval = "true"
         ),
       "\n"
     )
@@ -51,7 +51,7 @@ rm(rda)\n
 indices_table <- indices_table_rda$table
 indices_cap <- indices_table_rda$cap"),
         label = "tbl-indices-setup",
-        eval = "true"
+        eval = "false"
       ),
       "\n"
     )
@@ -66,7 +66,7 @@ indices_cap <- indices_table_rda$cap"),
         add_option = TRUE,
         chunk_op = c(
           glue::glue(
-            "tbl-cap: indices_cap"
+            "tbl-cap: !expr indices_cap"
           )
         )
       ),