From 379eb900622c1957929b74eed5073d7b431b8647 Mon Sep 17 00:00:00 2001
From: Qiwei Shen <106407853+willshen99@users.noreply.github.com>
Date: Fri, 7 Nov 2025 12:58:03 -0500
Subject: [PATCH] Add prefix to temp table name

---
 R/tbl_io.R    | 12 ++++++++----
 R/tbl_names.R | 12 ++++++++----
 2 files changed, 16 insertions(+), 8 deletions(-)

diff --git a/R/tbl_io.R b/R/tbl_io.R
index 79d0c83..c93ec88 100644
--- a/R/tbl_io.R
+++ b/R/tbl_io.R
@@ -34,8 +34,10 @@
 #' @export
 #' @md
 compute_new <- function(tblx,
-                        name = paste0(sample(letters, 12, replace = TRUE),
-                                      collapse = ""),
+                        name = paste0(
+                                 "tmp_argos_",
+                                 paste0(sample(letters, 12, replace = TRUE), collapse = "")
+                               ),
                         temporary = ! config('retain_intermediates'),
                         ...)
   get_argos_default()$compute_new(tblx, name, temporary, ...)
@@ -45,8 +47,10 @@ argos$set(
   #' @name compute_new-method
   #' @inherit compute_new
   function(tblx,
-           name = paste0(sample(letters, 12, replace = TRUE),
-                         collapse = ""),
+           name = paste0(
+                    "tmp_argos_",
+                    paste0(sample(letters, 12, replace = TRUE), collapse = "")
+                  ),
            temporary = ! self$config('retain_intermediates'),
            ...) {
     if (!inherits(name, c('ident_q', 'dbplyr_schema')) && length(name) == 1) {
diff --git a/R/tbl_names.R b/R/tbl_names.R
index e3a5571..f8baee7 100644
--- a/R/tbl_names.R
+++ b/R/tbl_names.R
@@ -81,8 +81,10 @@ argos$set(
 #' @return The resultant name
 #' @export
 #' @md
-intermed_name <- function(name = paste0(sample(letters, 12, replace = TRUE),
-                                           collapse = ""),
+intermed_name <- function(name = paste0(
+                                   "tmp_argos_",
+                                   paste0(sample(letters, 12, replace = TRUE), collapse = "")
+                                 ),
                           temporary = ! config('retain_intermediates'),
                           results_tag =  TRUE,
                           local_tag = NA,
@@ -96,8 +98,10 @@ argos$set(
   'public', 'intermed_name',
   #' @name intermed_name-method
   #' @inherit intermed_name
-  function(name = paste0(sample(letters, 12, replace = TRUE),
-                         collapse = ""),
+  function(name = paste0(
+                    "tmp_argos_",
+                    paste0(sample(letters, 12, replace = TRUE), collapse = "")
+                  ),
            temporary = ! self$config('retain_intermediates'),
            results_tag =  TRUE,
            local_tag = NA,