Removed random subquery alias generation

returnString · Mar 29, 2018 · 754a6c7 · 754a6c7
1 parent ccd6541
commit 754a6c7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/sql-generic.R b/R/sql-generic.R
@@ -35,11 +35,11 @@ sql_select.DBIConnection <- function(con, select, from, where = NULL,
 }
 
 #' @export
-sql_subquery.DBIConnection <- function(con, from, name = unique_name(), ...) {
+sql_subquery.DBIConnection <- function(con, from, name = unique_name(), alias = name, ...) {
   if (is.ident(from)) {
     setNames(from, name)
   } else {
-    build_sql("(", from, ") ", ident(name %||% random_table_name()), con = con)
+    build_sql("(", from, ") ", ident(alias), con = con)
   }
 }
 

diff --git a/R/sql-render.R b/R/sql-render.R
@@ -25,7 +25,7 @@ sql_render.op <- function(query, con = NULL, ...) {
 
 #' @export
 sql_render.select_query <- function(query, con = NULL, ..., root = FALSE) {
-  from <- sql_subquery(con, sql_render(query$from, con, ..., root = root), name = NULL)
+  from <- sql_subquery(con, sql_render(query$from, con, ..., root = root), name = NULL, alias = "a")
 
   sql_select(
     con, query$select, from, where = query$where, group_by = query$group_by,