Skip to content

Commit

Permalink
added reference to data.table
Browse files Browse the repository at this point in the history
  • Loading branch information
Sean Lucey committed Nov 21, 2023
1 parent 4b49d29 commit 9fdd81e
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions R/assign_unknown.R
Original file line number Diff line number Diff line change
Expand Up @@ -108,7 +108,7 @@ assign_unknown <- function (comData, unkVar,
'SPPLIVMT'))]

#Remove extra columns from known
known.simple <- copy(known)
known.simple <- data.table::copy(known)
known.simple <- known.simple[, c(names(known)[which(names(known) %in%
ext.col)]) := NULL]

Expand Down Expand Up @@ -158,7 +158,7 @@ assign_unknown <- function (comData, unkVar,
##Still no match - use 3 or 5 year window then drop year
if(nrow(unknown) > 0){
#Remove extra columns from known
known.all <- copy(known)
known.all <- data.table::copy(known)
known.all <- known.all[, list(YEAR, NESPP3, VAR, SPPLIVMT)]

#3 year window
Expand Down Expand Up @@ -260,7 +260,7 @@ assign_unknown <- function (comData, unkVar,
##Still no match - match to species
if(nrow(unknown) > 0){
#Remove extra columns from known
known.all <- copy(known)
known.all <- data.table::copy(known)
known.all <- known.all[, list(NESPP3, VAR, SPPLIVMT)]

#Sum landings per stratification
Expand Down

0 comments on commit 9fdd81e

Please sign in to comment.