From c55833ad713e793c049c627e1ca3b3416f0aa8bb Mon Sep 17 00:00:00 2001
From: Mitchell O'Hara-Wild <mail@mitchelloharawild.com>
Date: Thu, 15 Jan 2026 16:16:05 +1100
Subject: [PATCH] Explicitly scope `int` with the `.env` pronoun in gaps
 functions Resolves #323

---
 R/gaps.R                   | 18 +++++++++---------
 tests/testthat/test-gaps.R | 10 ++++++++++
 2 files changed, 19 insertions(+), 9 deletions(-)

diff --git a/R/gaps.R b/R/gaps.R
index c2007db9..fa4afdfe 100644
--- a/R/gaps.R
+++ b/R/gaps.R
@@ -141,7 +141,7 @@ scan_gaps.tbl_ts <- function(.data, .full = FALSE, .start = NULL, .end = NULL) {
         "Argument `.start` can only take a value earlier than %s.", start))
     }
     keyed_lst <- summarise(keyed_tbl,
-      !!idx_chr := list2(!!idx_chr := seq_generator(c(.start, max(!!idx)), int)))
+      !!idx_chr := list2(!!idx_chr := seq_generator(c(.start, max(!!idx)), .env$int)))
     keyed_tbl <- group_by(unwrap(keyed_lst, !!idx), !!!key)
   }
   if (is_end) {
@@ -151,7 +151,7 @@ scan_gaps.tbl_ts <- function(.data, .full = FALSE, .start = NULL, .end = NULL) {
         "Argument `.end` can only take a value later than %s.", end))
     }
     keyed_lst <- summarise(keyed_tbl,
-      !!idx_chr := list2(!!idx_chr := seq_generator(c(min(!!idx), .end), int)))
+      !!idx_chr := list2(!!idx_chr := seq_generator(c(min(!!idx), .end), .env$int)))
     keyed_tbl <- group_by(unwrap(keyed_lst, !!idx), !!!key)
   }
   if (is_start && is_end) {
@@ -163,17 +163,17 @@ scan_gaps.tbl_ts <- function(.data, .full = FALSE, .start = NULL, .end = NULL) {
         summarise(keyed_tbl, !!idx_chr := list2(!!idx_chr := idx_full))
     } else if (is_false(.full)) {
       sum_data <- summarise(keyed_tbl,
-        !!idx_chr := list2(!!idx_chr := seq_generator(!!idx, int)))
+        !!idx_chr := list2(!!idx_chr := seq_generator(!!idx, .env$int)))
     } else if (call_name(.full) == "start") {
       abort_if_args_present(.full)
       start <- min(keyed_tbl[[idx_chr]])
       sum_data <- summarise(keyed_tbl,
-        !!idx_chr := list2(!!idx_chr := seq_generator(c(start, max(!!idx)), int)))
+        !!idx_chr := list2(!!idx_chr := seq_generator(c(start, max(!!idx)), .env$int)))
     } else if (call_name(.full) == "end") {
       abort_if_args_present(.full)
       end <- max(keyed_tbl[[idx_chr]])
       sum_data <- summarise(keyed_tbl,
-        !!idx_chr := list2(!!idx_chr := seq_generator(c(min(!!idx), end), int)))
+        !!idx_chr := list2(!!idx_chr := seq_generator(c(min(!!idx), end), .env$int)))
     } else {
       abort_invalid_full_arg()
     }
@@ -277,12 +277,12 @@ has_gaps <- function(.data, .full = FALSE, .name = ".gaps",
     if (lgl || quo_is_symbol(.full)) {
       .full <- eval_tidy(.full)
       if (is_true(.full)) {
-        idx_full <- seq_generator(.data[[idx_chr]], int)
+        idx_full <- seq_generator(.data[[idx_chr]], .env$int)
         res <- summarise(grped_tbl,
           !!.name := (length(idx_full) - length(!!idx)) > 0)
       } else if (is_false(.full)) {
         res <- summarise(grped_tbl,
-          !!.name := (length(seq_generator(!!idx, int)) - length(!!idx)) > 0
+          !!.name := (length(seq_generator(!!idx, .env$int)) - length(!!idx)) > 0
         )
       } else {
         abort_invalid_full_arg()
@@ -292,13 +292,13 @@ has_gaps <- function(.data, .full = FALSE, .name = ".gaps",
         abort_if_args_present(.full)
         start <- min(.data[[idx_chr]])
         res <- summarise(grped_tbl,
-          !!.name := (length(seq_generator(c(start, max(!!idx)), int)) - length(!!idx)) > 0
+          !!.name := (length(seq_generator(c(start, max(!!idx)), .env$int)) - length(!!idx)) > 0
         )
       } else if (call_name(.full) == "end") {
         abort_if_args_present(.full)
         end <- max(.data[[idx_chr]])
         res <- summarise(grped_tbl,
-          !!.name := (length(seq_generator(c(min(!!idx), end), int)) - length(!!idx)) > 0
+          !!.name := (length(seq_generator(c(min(!!idx), end), .env$int)) - length(!!idx)) > 0
         )
       } else {
         abort_invalid_full_arg()
diff --git a/tests/testthat/test-gaps.R b/tests/testthat/test-gaps.R
index f36fdcd9..b66bf3ab 100644
--- a/tests/testthat/test-gaps.R
+++ b/tests/testthat/test-gaps.R
@@ -208,3 +208,13 @@ test_that("seq_generator()", {
   }
   expect_error(seq_generator(y, default_time_units(interval_pull(y))), "defined")
 })
+
+test_that("issue #323: scan_gaps/has_gaps with column named `int`", {
+  x_bug <- tsibble::tsibble(
+    time = 1:5,
+    int  = 1L,
+    index = time
+  )
+
+  expect_s3_class(tsibble::scan_gaps(x_bug), "tbl_ts")
+})
\ No newline at end of file