Fix dplyr_row_slice method when i variable name is present

Resolves #317

Author: mitchelloharawild

R/dplyr-verbs.R

@@ -1,3 +1,6 @@
+# tidy evaluation pronouns
+globalVariables(c(".data", ".env"))
+
 #' Tidyverse methods for tsibble
 #'
 #' @description
@@ -210,7 +213,7 @@ count.tbl_ts <- function(x, ..., wt = NULL, sort = FALSE, name = NULL) {
 #' @export
 dplyr_row_slice.tbl_ts <- function(data, i, ..., preserve = FALSE) {
   tbl <- as_tibble(data)
-  loc_df <- summarise(tbl, !!".loc" := list2(i))
+  loc_df <- summarise(tbl, !!".loc" := list2(.env$i))
   ascending <- all(map_lgl(loc_df[[".loc"]], validate_order))
   res <- dplyr_row_slice(tbl, i, ..., preserve = preserve)
   if (preserve) {

tests/testthat/test-dplyr.R

@@ -361,3 +361,14 @@ test_that("drop redundant key #196", {
     select(-Purpose)
   expect_equal(key_vars(sim_tourism), c("Region", "State"))
 })
+
+test_that("filter() with `i` name in data #317", {
+  tsibble::tsibble(
+    i = rep(1:5, 2),
+    k = c(rep('a', 5), rep('b', 5)),
+    x = c(rnorm(5), rpois(5, 1)),
+    key = k,
+    index = i
+  ) %>%
+    filter(k == 'a')
+})