Suggest stats::lag() in dplyr::lag() warning

Also suggest users set conflictRules() to prevent dplyr from breaking
base R's behavior. Add dependency on R-3.6.0 or greater because that's
when conflictRules() was introduced.

Author: joshuaulrich

DESCRIPTION

@@ -8,7 +8,7 @@ Authors@R: c(
   person(given="Ross", family="Bennett", role="ctb"),
   person(given="Corwin", family="Joy", role="ctb")
   )
-Depends: zoo (>= 1.7-12)
+Depends: R (>= 3.6.0), zoo (>= 1.7-12)
 Imports: methods
 LinkingTo: zoo
 Suggests: timeSeries, timeDate, tseries, chron, tis, tinytest

R/zzz.R

@@ -54,7 +54,16 @@ function(pkg, generic, class, fun = NULL)
 
 .onAttach <- function(libname, pkgname)
 {
-  if (getOption("xts.warn_dplyr_breaks_lag", TRUE)) {
+  warn_dplyr_lag <- getOption("xts.warn_dplyr_breaks_lag", TRUE)
+
+  dplyr_will_mask_lag <- conflictRules("dplyr")
+  if (is.null(dplyr_will_mask_lag)) {
+    dplyr_will_mask_lag <- TRUE
+  } else {
+    dplyr_will_mask_lag <- all(dplyr_will_mask_lag$exclude != "lag")
+  }
+
+  if (warn_dplyr_lag && dplyr_will_mask_lag) {
 
     dplyr_path <- find.package("dplyr", quiet = TRUE, verbose = FALSE)
 
@@ -85,6 +94,10 @@ function(pkg, generic, class, fun = NULL)
 # mechanism.                                                                  #
 #                                                                             #
 # Set `options(xts.warn_dplyr_breaks_lag = FALSE)` to suppress this warning.  #
+#                                                                             #
+# You can use stats::lag() to make sure you're not using dplyr::lag(), or you #
+# can add conflictRules('dplyr', exclude = 'lag') to your .Rprofile to stop   #
+# dplyr from breaking base R's lag() function.                                #
 ################################### WARNING ###################################")
       packageStartupMessage(msg)
     }