fix bug in weight

tokami · tokami · commit 803dd0b43d60 · 2026-06-03T20:02:49.000+02:00
diff --git a/R/weight.R b/R/weight.R
@@ -483,7 +483,7 @@ add_total_weight_by_haul <- function (x,
     if (n_aphia == 1) {
       stop(txt)
     } else {
-      if (verbose) message(txt, " Skipping: ", aphia[i])
+      if (verbose) message(txt, " Skipping: ", aphia)
       return(NULL)
     }
   }
@@ -498,7 +498,7 @@ add_total_weight_by_haul <- function (x,
     if (n_aphia == 1) {
       stop(txt)
     } else {
-      if (verbose) message(txt, " Skipping: ", aphia[i])
+      if (verbose) message(txt, " Skipping: ", aphia)
       return(NULL)
     }
   }
@@ -507,7 +507,7 @@ add_total_weight_by_haul <- function (x,
     if (n_aphia == 1) {
       stop(txt)
     } else {
-      if (verbose) message(txt, " Skipping: ", aphia[i])
+      if (verbose) message(txt, " Skipping: ", aphia)
       return(NULL)
     }
   }
@@ -524,8 +524,7 @@ add_total_weight_by_haul <- function (x,
   if (n_aphia > 1) {
     xsub <- add_numbers_at_length(xsub,
                                   cm_breaks = cm_breaks,
-                                  by = cm_breaks[2] -
-                                    cm_breaks[1])
+                                  by = cm_breaks[2] - cm_breaks[1])
   }
 
   Wgt <- sweep(xsub[["HH"]]$N, 2, LW, "*")

Original file line number	Diff line number	Diff line change
`@@ -483,7 +483,7 @@ add_total_weight_by_haul <- function (x,`
`483`	`483`	`if (n_aphia == 1) {`
`484`	`484`	`stop(txt)`
`485`	`485`	`} else {`
`486`		`- if (verbose) message(txt, " Skipping: ", aphia[i])`
	`486`	`+ if (verbose) message(txt, " Skipping: ", aphia)`
`487`	`487`	`return(NULL)`
`488`	`488`	`}`
`489`	`489`	`}`
`@@ -498,7 +498,7 @@ add_total_weight_by_haul <- function (x,`
`498`	`498`	`if (n_aphia == 1) {`
`499`	`499`	`stop(txt)`
`500`	`500`	`} else {`
`501`		`- if (verbose) message(txt, " Skipping: ", aphia[i])`
	`501`	`+ if (verbose) message(txt, " Skipping: ", aphia)`
`502`	`502`	`return(NULL)`
`503`	`503`	`}`
`504`	`504`	`}`
`@@ -507,7 +507,7 @@ add_total_weight_by_haul <- function (x,`
`507`	`507`	`if (n_aphia == 1) {`
`508`	`508`	`stop(txt)`
`509`	`509`	`} else {`
`510`		`- if (verbose) message(txt, " Skipping: ", aphia[i])`
	`510`	`+ if (verbose) message(txt, " Skipping: ", aphia)`
`511`	`511`	`return(NULL)`
`512`	`512`	`}`
`513`	`513`	`}`
`@@ -524,8 +524,7 @@ add_total_weight_by_haul <- function (x,`
`524`	`524`	`if (n_aphia > 1) {`
`525`	`525`	`xsub <- add_numbers_at_length(xsub,`
`526`	`526`	`cm_breaks = cm_breaks,`
`527`		`- by = cm_breaks[2] -`
`528`		`- cm_breaks[1])`
	`527`	`+ by = cm_breaks[2] - cm_breaks[1])`
`529`	`528`	`}`
`530`	`529`
`531`	`530`	`Wgt <- sweep(xsub[["HH"]]$N, 2, LW, "*")`