Removed last dependency on lazyeval

NikNakk · Feb 25, 2019 · 95bfcfc · 95bfcfc
1 parent 0e91c19
commit 95bfcfc
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -18,3 +18,4 @@ Imports: dplyr (>= 0.7.4),
 Suggests: survival,
     metafor
 RoxygenNote: 6.1.1
+Encoding: UTF-8
diff --git a/NAMESPACE b/NAMESPACE
@@ -12,4 +12,3 @@ export(theme_forest)
 import(dplyr)
 import(ggplot2)
 import(rlang)
-importFrom(lazyeval,lazy_eval)
diff --git a/R/forest_rma.R b/R/forest_rma.R
@@ -18,7 +18,6 @@
 #' @return plot
 #'
 #' @import dplyr
-#' @importFrom lazyeval lazy_eval
 #'
 #' @export
 #'
@@ -118,7 +117,7 @@ forest_rma <- function(model, panels = NULL,
 #
 # @inheritParams forest_rma
 #
-#
+# @importFrom rlang eval_tidy
 # @return a data.frame with the extracted data
 get_data_for_rma <-
   function(model, study_labels = NULL, model_label = NULL, point_size = NULL,
@@ -189,7 +188,7 @@ get_data_for_rma <-
 
   if (!is.null(show_stats)) {
     forest_data <- lapply(seq(show_stats), function(i) {
-      stat_result <- lazyeval::lazy_eval(show_stats[[i]], model)
+      stat_result <- rlang::eval_tidy(show_stats[[i]], model)
       stat_sign <- regmatches(stat_result, regexec("^[=<>]=?", stat_result))[[1]]
       if (length(stat_sign) == 0) {
         stat_result <- paste0("= ", stat_result)