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