[feat] Add new template "type" for SEDAR reports

R/create_template.R

@@ -16,7 +16,9 @@
 #'
 #' Default: "sar" (a NOAA standard "Stock Assessment Report")
 #'
-#' Options: "sar" (Stock Assessment Report), "nemt" (Northeast Management Track), "pfmc" (Pacific Fishery Management Council), "safe" (Stock Assessment and Fishery Evaluation)
+#' Options: "sar" (Stock Assessment Report), "nemt" (Northeast Management Track),
+#' "pfmc" (Pacific Fishery Management Council), "safe" (Stock Assessment and 
+#' Fishery Evaluation)
 #'
 #' @param office Regional Fisheries Science Center producing the report.
 #'
@@ -462,7 +464,9 @@ create_template <- function(
 
     asar_folder <- system.file("templates", package = "asar")
     # copy files from specific type folder
-    current_folder <- ifelse(rerender_skeleton, subdir, file.path(asar_folder, type))
+    current_folder <- ifelse(rerender_skeleton,
+                             subdir,
+                             file.path(asar_folder, type))
     new_folder <- subdir
 
     ##### Identify files to copy ----

R/create_yaml.R

@@ -220,7 +220,12 @@ create_yaml <- function(
       toad <- paste(author_list[[i]], sep = ",")
       add_authors <- paste0(add_authors, toad) # -> add_authors
     }
-    yaml <- paste0(yaml, add_authors)
+
+    sedar_author <- "  - name: 'SEDAR'\n    affiliations: \n        address: '4055 Faber Place Drive, Suite 201' \n        city: 'North Charleston' \n        state: 'SC' \n        postal-code: '29405' \n"
+
+    yaml <- ifelse(office == "SEFSC",
+                   paste0(yaml, sedar_author),
+                   paste0(yaml, add_authors))
 
     # Add other parts
     yaml <- paste0(

inst/WORDLIST

@@ -53,6 +53,7 @@ SEFSC
 SSC
 SWA
 SWFSC
+SouthEast
 Strikethrough
 TOC
 TinyTeX
@@ -119,6 +120,7 @@ roboto
 saltatrix
 sar
 se
+sedar
 snakecase
 socio
 sso