6  连接postgresql

6.1 pgadmin4

• 注册服务器

填入以下参数后保存即可。

计算机名称：localhost
维护数据库：postgres
数据库用户名：hulihuihong
密码：我的密码

6.2 RPostgreSQL

library(RPostgreSQL)
library(yaml)
config <- read_yaml("config.yml")

con <- dbConnect(PostgreSQL(), 
                 host = config$database$host,
                 port = config$database$port,
                 dbname = config$database$dbname,
                 user = config$database$user,
                 password = config$database$password)

result <- dbGetQuery(con, "SELECT * FROM EICU_CRD.ADMISSIONDRUG LIMIT 10")

dbDisconnect(con)

[1] TRUE

result

admissiondrugid	patientunitstayid	drugoffset	drugenteredoffset	drugnotetype	specialtytype	usertype	rxincluded	writtenineicu	drugname	drugdosage	drugunit	drugadmitfrequency	drughiclseqno
1589228	242954	64	79	Admission	eCM Primary	THC Nurse	True	True	ELIQUIS	0			37792
2063596	243285	29	39	Admission	eCM Primary	THC Nurse	False	True	VICTOZA 2-PAK	0			36436
2063595	243285	29	39	Admission	eCM Primary	THC Nurse	False	True	POTASSIUM CHLORIDE	0			549
2063590	243285	29	39	Admission	eCM Primary	THC Nurse	False	True	CITALOPRAM HBR	0			10321
2063594	243285	29	39	Admission	eCM Primary	THC Nurse	False	True	OMEPRAZOLE	0			4673
2063593	243285	29	39	Admission	eCM Primary	THC Nurse	False	True	NAPROXEN	0			3727
2063592	243285	29	39	Admission	eCM Primary	THC Nurse	False	True	METFORMIN HCL	0			4763
2063589	243285	29	39	Admission	eCM Primary	THC Nurse	False	True	LIPITOR	0			12404
2063591	243285	29	39	Admission	eCM Primary	THC Nurse	False	True	FLECAINIDE ACETATE	0			82
2063588	243285	29	39	Admission	eCM Primary	THC Nurse	False	True	ASPIRIN	0			1820