remove redundant code

Yunuuuu · Oct 27, 2023 · fc931c7 · fc931c7
1 parent 94b68a6
commit fc931c7
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/dedup.R b/R/dedup.R
@@ -35,7 +35,6 @@ methods::setMethod("faers_dedup", "FAERSascii", function(object, remove_deleted_
  deleted_cases = deleted_cases
  )
  )
- deduplicated_data <- deduplicated_data[, c("year", "quarter", "primaryid")]
  object@data <- lapply(object@data, function(x) {
  x[deduplicated_data, on = c("year", "quarter", "primaryid")]
  })