skip long-running example

R/fixest-tidiers.R

@@ -25,7 +25,7 @@
 #'   fixed effects, see \url{https://github.com/lrberge/fixest/issues/6} and
 #'   \url{https://github.com/sgaure/lfe/issues/1#issuecomment-530646990})
 #'
-#' @examplesIf rlang::is_installed("fixest")
+#' @examplesIf rlang::is_installed("fixest") & !broom:::is_cran_check()
 #'
 #' # load libraries for models and data
 #' library(fixest)

R/utilities.R

@@ -34,6 +34,8 @@ exponentiate <- function(data, col = "estimate") {
 #' @return A `tibble` potentially with a `.rownames` column
 #' @noRd
 #'
+
+
 as_augment_tibble <- function(data) {
   if (inherits(data, "matrix") & is.null(colnames(data))) {
     stop(
@@ -61,6 +63,16 @@ as_augment_tibble <- function(data) {
   df
 }
 
+# adapted from ps:::is_cran_check()
+is_cran_check <- function() {
+  if (identical(Sys.getenv("NOT_CRAN"), "true")) {
+    FALSE
+  }
+  else {
+    Sys.getenv("_R_CHECK_PACKAGE_NAME_", "") != ""
+  }
+}
+
 #' Convert a data.frame or matrix to a tibble
 #'
 #' This function is meant for use inside `tidy.*` methods.