1

我正在尝试使用模式下的 shinyR 访问 Redshift 上的一些表，我可以使用库（RPostgresSQL）连接到不在模式下的表，所以我知道这部分正在工作：

pconn_r <- dbConnect(RPostgres::Postgres(),  
                 host = "xxxxxxxxxxxx",
                 port = "5439",
                 user = "rcd_admin",
                 password = "xxxxxxx",
                 dbname = "xxxx"

)

但是我无法使用以下命令访问架构 synapps 下的表 fr__synapps_drug__outpatient_index ：

sql_command <- "Select cip13_code,cis_label,presentation_label,brand,period,hco_code,hco_label,hco_code_type,hco_city,bse,rem,unit from  synapps.fr__synapps_drug__outpatient_index"
outpatient <- dbSendQuery(pconn_r, sql_command)
4

1 回答 1

1

我找到了一个解决方案：

myRedshift <- DBI::dbConnect(RPostgreSQL::PostgreSQL(), 
                         dbname = 'oip',
                         host = 'xxxx',
                         port = 5439,
                         user = "xxxadmin", 
                         password = "xxx")

cis_has_bdpm <-data.frame( dbGetQuery(myRedshift, "select * from synapps.fr__synapps_drug__has_index"))

我改变了连接 Redshift 的方式，它正在工作，但是数据的加载速度很慢

于 2018-07-24T11:41:38.800 回答