From 29ab774323368f8ed10ca15d1a847cb7eedf8b93 Mon Sep 17 00:00:00 2001
From: Timothy Mastny <tim.mastny@gmail.com>
Date: Tue, 13 Mar 2018 17:39:06 -0500
Subject: [PATCH] change tidy evals to standard syntax

---
 R/model_tools.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/model_tools.R b/R/model_tools.R
index 203b8c1..5b91db5 100644
--- a/R/model_tools.R
+++ b/R/model_tools.R
@@ -66,7 +66,7 @@ save_filter <- function(model) {
     column_names <- names(model$bestTune)
     column_values <- model$bestTune
     filtered <- model$pred %>%
-      dplyr::filter(!! rlang::parse_expr(paste(column_names, "==", shQuote(column_values), collapse = "&")))
+      dplyr::filter(!!rlang::parse_expr(paste(column_names, "==", shQuote(column_values), collapse = "&")))
     return(filtered)
   }
   model$pred
@@ -78,7 +78,7 @@ add_observed <- function(agg_data, model) {
   data <- save_filter(model)
   observed <- data$obs[orderer(data)]
   agg_data <- agg_data %>%
-    tibble::add_column(!!(outcome) := observed)
+    tibble::add_column(!!outcome := observed)
 }
 
 #' Convert (subset) of the leaderboard tibble to a list of models