update printfolder to forSS3

pfmc-assessments · May 8, 2024 · 257f43a · 257f43a
1 parent eabcc6f
commit 257f43a
Show file tree

Hide file tree

Showing 10 changed files with 42 additions and 19 deletions.
diff --git a/R/Biomass.fn.R b/R/Biomass.fn.R
@@ -56,7 +56,7 @@ Biomass.fn <- function(
   dat,
   strat.vars = c("Depth_m", "Latitude_dd"),
   strat.df,
-  printfolder = "forSS",
+  printfolder = "forSS3",
   outputMedian = TRUE,
   month = "Enter month",
   fleet = "Enter fleet",

diff --git a/R/GetN.fn.R b/R/GetN.fn.R
@@ -54,7 +54,7 @@ GetN.fn <- function(
     "thorny",
     "others"
   ),
-  printfolder = "forSS",
+  printfolder = "forSS3",
   output = NULL,
   verbose = TRUE) {
 

diff --git a/R/SurveyAFs.fn.R b/R/SurveyAFs.fn.R
@@ -66,7 +66,7 @@ SurveyAFs.fn <- function(
   ageErr = "Enter",
   nSamps = "Enter Samps",
   month = "Enter Month",
-  printfolder = "forSS",
+  printfolder = "forSS3",
   remove999 = TRUE,
   outputStage1 = FALSE,
   verbose = TRUE) {

diff --git a/R/SurveyAgeAtLen.fn.R b/R/SurveyAgeAtLen.fn.R
@@ -56,7 +56,7 @@ SurveyAgeAtLen.fn <- function(
   partition = 0,
   ageErr = "Enter Age Error",
   returnSamps = FALSE,
-  printfolder = "forSS",
+  printfolder = "forSS3",
   verbose = TRUE) {
 
   plotdir <- file.path(dir, printfolder)

diff --git a/R/SurveyLFs.fn.R b/R/SurveyLFs.fn.R
@@ -71,7 +71,7 @@ SurveyLFs.fn <- function(
   ageErr = "Enter",
   nSamps = "Enter Samps",
   month = "Enter Month",
-  printfolder = "forSS",
+  printfolder = "forSS3",
   remove999 = TRUE,
   outputStage1 = FALSE,
   sum100 = TRUE,

diff --git a/R/UnexpandedAF.fn.R b/R/UnexpandedAF.fn.R
@@ -29,7 +29,7 @@ UnexpandedAFs.fn <- function(
   agelow = -1,
   agehigh = -1,
   month = "Enter Month",
-  printfolder = "forSS",
+  printfolder = "forSS3",
   verbose = TRUE) {
 
   # Overwrite inputs to use the same code for lengths as ages

diff --git a/R/checkStrata.fn.R b/R/checkStrata.fn.R
@@ -27,7 +27,7 @@ CheckStrata.fn <- function(
   dat,
   strat.vars = c("Depth_m", "Latitude_dd"),
   strat.df,
-  printfolder = "forSS",
+  printfolder = "forSS3",
   verbose = TRUE) {
 
   # Grab the strata  rownmaes to index later

diff --git a/R/get_raw_comps.R b/R/get_raw_comps.R
@@ -53,7 +53,7 @@
 #' \dontrun{
 #' bio <- pull_bio{
 #'   common_name = "lingcod",
-#'   survey = "NWFSC.Combo
+#'   survey = "NWFSC.Combo"
 #' }
 #'
 #' length_comps <- get_raw_comps(

diff --git a/R/unexpandedLF.fn.R b/R/unexpandedLF.fn.R
@@ -29,7 +29,7 @@ UnexpandedLFs.fn <- function(
   agelow = -1,
   agehigh = -1,
   month = "Enter Month",
-  printfolder = "forSS",
+  printfolder = "forSS3",
   verbose = TRUE) {
 
   plotdir <- file.path(dir, printfolder)

diff --git a/man/get_raw_comps.Rd b/man/get_raw_comps.Rd