From 9fdd81e4cef47eccf85db114145807462e4bf436 Mon Sep 17 00:00:00 2001 From: Sean Lucey Date: Tue, 21 Nov 2023 15:27:27 -0500 Subject: [PATCH] added reference to data.table --- R/assign_unknown.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/assign_unknown.R b/R/assign_unknown.R index 6cecb8d..f11042e 100644 --- a/R/assign_unknown.R +++ b/R/assign_unknown.R @@ -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] @@ -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 @@ -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