some missing namepsace calls

Author: topepo

tests/testthat/test_nearest_neighbor_kknn.R

@@ -134,15 +134,15 @@ test_that('kknn multi-predict', {
   )
 
   pred_multi <- multi_predict(res_xy, hpc[hpc_te, num_pred], neighbors = k_vals)
-  expect_equal(pred_multi %>% unnest(cols = c(.pred)) %>% nrow(),
+  expect_equal(pred_multi %>% tidyr::unnest(cols = c(.pred)) %>% nrow(),
                length(hpc_te) * length(k_vals))
   expect_equal(pred_multi %>% nrow(), length(hpc_te))
 
   pred_uni <- predict(res_xy, hpc[hpc_te, num_pred])
   pred_uni_obs <-
     pred_multi %>%
     mutate(.rows = row_number()) %>%
-    unnest(cols = c(.pred)) %>%
+    tidyr::unnest(cols = c(.pred)) %>%
     dplyr::filter(neighbors == 3) %>%
     arrange(.rows) %>%
     dplyr::select(.pred_class)
@@ -151,15 +151,15 @@ test_that('kknn multi-predict', {
 
   prob_multi <- multi_predict(res_xy, hpc[hpc_te, num_pred],
                               neighbors = k_vals, type = "prob")
-  expect_equal(prob_multi %>% unnest(cols = c(.pred)) %>% nrow(),
+  expect_equal(prob_multi %>% tidyr::unnest(cols = c(.pred)) %>% nrow(),
                length(hpc_te) * length(k_vals))
   expect_equal(prob_multi %>% nrow(), length(hpc_te))
 
   prob_uni <- predict(res_xy, hpc[hpc_te, num_pred], type = "prob")
   prob_uni_obs <-
     prob_multi %>%
     mutate(.rows = row_number()) %>%
-    unnest(cols = c(.pred)) %>%
+    tidyr::unnest(cols = c(.pred)) %>%
     dplyr::filter(neighbors == 3) %>%
     arrange(.rows) %>%
     dplyr::select(!!names(prob_uni))
@@ -179,15 +179,15 @@ test_that('kknn multi-predict', {
   )
 
   pred_multi <- multi_predict(res_xy, mtcars[cars_te, -1], neighbors = k_vals)
-  expect_equal(pred_multi %>% unnest(cols = c(.pred)) %>% nrow(),
+  expect_equal(pred_multi %>% tidyr::unnest(cols = c(.pred)) %>% nrow(),
                length(cars_te) * length(k_vals))
   expect_equal(pred_multi %>% nrow(), length(cars_te))
 
   pred_uni <- predict(res_xy, mtcars[cars_te, -1])
   pred_uni_obs <-
     pred_multi %>%
     mutate(.rows = row_number()) %>%
-    unnest(cols = c(.pred)) %>%
+    tidyr::unnest(cols = c(.pred)) %>%
     dplyr::filter(neighbors == 3) %>%
     arrange(.rows) %>%
     dplyr::select(.pred)