remove requirement for stapmr package

DESCRIPTION

@@ -49,9 +49,10 @@ Imports:
     crayon,
     TTR,
     Rfast,
-    stats
+    stats,
+    brew
 RdMacros: Rdpack, lifecycle
 VignetteBuilder: knitr
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3
 Depends: 
     R (>= 2.10)

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export("%fin%")
 export(AlcBinge)
 export(AlcBinge_stapm)
 export(AlcLags)
@@ -27,5 +28,4 @@ importFrom(data.table,rbindlist)
 importFrom(data.table,setDT)
 importFrom(data.table,setnames)
 importFrom(lifecycle,deprecate_soft)
-importFrom(stapmr,"%fin%")
 importFrom(stats,ar)

R/AlcLags.R

@@ -17,7 +17,6 @@
 #' on an individual's relative risk of disease has so far emerged.
 #' 
 #' @importFrom data.table := setDT setnames data.table
-#' @importFrom stapmr %fin%
 #' 
 #' @references
 #' \insertRef{holmes2012temporal}{tobalcepi}  

R/RRAlc.R

@@ -39,7 +39,6 @@
 #' @return Returns a numeric vector of each individual's relative risks for the alcohol related disease specified by "disease".
 #' 
 #' @importFrom data.table := setDT setnames fifelse
-#' @importFrom stapmr %fin%
 #' 
 #' @export
 #' 

R/RRFunc.R

@@ -112,7 +112,6 @@
 #' 
 #' 
 #' @importFrom data.table := setDT setnames copy rbindlist
-#' @importFrom stapmr %fin%
 #' 
 #' @export
 #' 

R/RRtob.R

@@ -37,7 +37,6 @@
 #' specified by "disease".
 #' 
 #' @importFrom data.table := setDT setnames copy
-#' @importFrom stapmr %fin%
 #' 
 #' @export
 #' 

R/TobAlcInt.R

@@ -26,7 +26,6 @@
 #' specified by "disease".
 #' 
 #' @importFrom data.table := setDT setnames copy
-#' @importFrom stapmr %fin%
 #' 
 #' @export
 #' @references

R/TobLags.R

@@ -37,7 +37,6 @@
 #' on an individual's relative risk of disease has so far emerged.
 #' 
 #' @importFrom data.table := setDT setnames data.table
-#' @importFrom stapmr %fin%
 #' 
 #' @export
 #'

R/fast_match.R

@@ -0,0 +1,30 @@
+
+#' Fast matching
+#' 
+#' A faster version of `%in%`.
+#' 
+#' See [fastmatch::fmatch()]
+#'
+#' @param x values to be matched
+#' @param table values to be matched against
+#'
+#' @return Logical indicating match or not
+#' @export
+#'
+#' @keywords internal
+#'
+#' @examples
+#' 
+#' \dontrun{
+#' 
+#' x %fin% y
+#' 
+#' }
+#' 
+#' 
+#' 
+`%fin%` <- function(x, table) {
+
+  fastmatch::fmatch(x, table, nomatch = 0L) > 0L
+
+}

R/subgroupRisk.R

@@ -31,7 +31,6 @@
 #' @return Returns a data table containing the subgroup specific summaries for each disease.
 #' 
 #' @importFrom data.table := setDT setnames copy .SD .N
-#' @importFrom stapmr %fin%
 #' 
 #' @export
 #'