delete unused method

R/counts.R

@@ -31,9 +31,9 @@ methods::setGeneric("faers_counts", function(object, ...) {
 #' use. Only values "demo", "drug", "indi", "ther", "reac", "rpsr", and "outc"
 #' can be used.
 #' @param interested_event A character specify the events column(s?) in the
-#' `interested_field` of object to count the unique `primaryid`. If multiple
-#' columns were selected, the combination for all columns will define the
-#' interested events.
+#' `interested_field` data to count the unique `primaryid`. If multiple columns
+#' were selected, the combination for all columns will define the interested
+#' events.
 #' @param interested_fn A function or formula defined the preprocessing function
 #' before creating contingency table, with the `interested_field` data as the
 #' input and return a [data.table][data.table::data.table].

R/signal.R

@@ -72,7 +72,7 @@ methods::setMethod(
 methods::setMethod(
  "faers_phv_table",
  c(object = "FAERSascii", interested = "FAERSascii", object2 = "missing"),
- function(object, interested_event = "soc_name", ..., interested, object2) {
+ function(object, interested_field = "reac", interested_event = "soc_name", ..., interested, object2) {
  if (!object@standardization) {
  cli::cli_abort("{.arg object} must be standardized using {.fn faers_standardize}")
  }
@@ -86,9 +86,12 @@ methods::setMethod(
  }
  full_counts <- faers_counts(
  object,
+ interested_field = interested_field,
  interested_event = interested_event, ...
  )
- interested_counts <- faers_counts(interested,
+ interested_counts <- faers_counts(
+ interested,
+ interested_field = interested_field,
  interested_event = interested_event, ...
  )
  n <- sum(full_counts$N) # scalar
@@ -114,7 +117,7 @@ methods::setMethod(
 methods::setMethod(
  "faers_phv_table",
  c(object = "FAERSascii", interested = "missing", object2 = "FAERSascii"),
- function(object, interested_event = "soc_name", ..., interested, object2) {
+ function(object, interested_field = "reac", interested_event = "soc_name", ..., interested, object2) {
  if (!object@standardization) {
  cli::cli_abort("{.arg object} must be standardized using {.fn faers_standardize}")
  }
@@ -128,9 +131,11 @@ methods::setMethod(
  cli::cli_warn("{.val {overlapped_idx}} report{?s} are overlapped between {.arg object} and {.arg object2}")
  }
  interested_counts <- faers_counts(object,
+ interested_field = interested_field,
  interested_event = interested_event, ...
  )
  interested_counts2 <- faers_counts(object2,
+ interested_field = interested_field,
  interested_event = interested_event, ...
  )
  n1. <- sum(interested_counts$N)
@@ -151,15 +156,6 @@ methods::setMethod(
 
 utils::globalVariables(c("a", "b", "d", "n.1"))
 
-#' @rdname faers_phv_signal
-methods::setMethod(
- "faers_phv_table",
- c(object = "FAERSascii", interested = "FAERSascii", object2 = "FAERSascii"),
- function(object, interested, object2) {
- cli::cli_abort("{.arg interested} and {.arg object2} are both exclusive, must be provided only one or none")
- }
-)
-
 ##############################################################
 #' @export
 #' @rdname faers_phv_signal