Merge pull request #158 from pfmc-assessments/minor-fix

chantelwetzel-noaa · web-flow · commit 4c476cb3b46c · 2024-10-17T14:37:48.000-07:00
fix: correct the write.csv for unsexed formatted comps
diff --git a/R/get_expanded_comps.R b/R/get_expanded_comps.R
@@ -472,7 +472,7 @@ get_expanded_comps <- function(
     if (!is.null(dir)) {
       write.csv(
         x = all_formatted,
-        file = file.path(dir, printfolder, paste0(comp_column_name, "_unsexed_expanded_", bin_range, "_", , species, , "_", project, ".csv")),
+        file = file.path(dir, printfolder, paste0(comp_column_name, "_unsexed_expanded_", bin_range, "_", species, "_", project, ".csv")),
         row.names = FALSE
       )
     }

Original file line number	Diff line number	Diff line change
`@@ -472,7 +472,7 @@ get_expanded_comps <- function(`
`472`	`472`	`if (!is.null(dir)) {`
`473`	`473`	`write.csv(`
`474`	`474`	`x = all_formatted,`
`475`		`- file = file.path(dir, printfolder, paste0(comp_column_name, "_unsexed_expanded_", bin_range, "_", , species, , "_", project, ".csv")),`
	`475`	`+ file = file.path(dir, printfolder, paste0(comp_column_name, "_unsexed_expanded_", bin_range, "_", species, "_", project, ".csv")),`
`476`	`476`	`row.names = FALSE`
`477`	`477`	`)`
`478`	`478`	`}`