R中鮮明而使用DBI包連接到PostgreSQL

Question

下面的代碼打印：

SELECT "district_code" FROM sd_stage.table1 GROUP BY "district_code" 

，但我期待：

select distinct(district_code) from sd_stage.table1 

代碼：

library(DBI) 
library(tidyverse) 
library(dbplyr) 

conn_obj <- DBI::dbConnect(RPostgreSQL::PostgreSQL(), 
          host = "127.0.0.1", 
          user = "testingdb", 
          password = "admin@123") 
on.exit(DBI::dbDisconnect(conn_obj)) 

tbl_oil_root_segment <- dplyr::tbl(conn_obj, 
     dbplyr::in_schema('sd_stage','table1')) 

tbl_oil_root_segment %>% distinct(oil_district) %>% show_query() 

輸出是正確的，但生成的查詢似乎不是100％。那麼無論如何，我可以實現查詢？

Answer 1

tbl_oil_root_segment %>% select(oil_district) %>% distinct %>% show_query() 

將創建您所期望的查詢。

但是，請注意，SQL中的select distinct a from t與select a from t group by a相同（請參閱this question）。