30 lines
848 B
R
30 lines
848 B
R
library(tidyverse)
|
|
library(DBI)
|
|
|
|
Sys.setenv(PGHOST = "db.mainscnt.eu",
|
|
PGDATABASE = "mainscnt",
|
|
PGPORT = 5432,
|
|
PGUSER = "wn",
|
|
PGSSLMODE = "verify-ca",
|
|
PGSSLKEY = "/home/wn/keys/psql/wn-postgresql-client-2.pem",
|
|
PGSSLCERT = "/home/wn/keys/psql/wn-postgresql-client-2.crt",
|
|
PGSSLROOTCERT = "/home/wn/keys/psql/postgres-ca.crt")
|
|
|
|
# Sys.setenv(PGHOST = "tsdb02-rd.krohne.com",
|
|
# PGDATABASE = "schoellershammer",
|
|
# PGPORT = 5432,
|
|
# PGUSER = "dehottgw",
|
|
# PGSSLMODE = "verify-ca",
|
|
# PGSSLKEY = "/home/wn/keys/psql/dehottgw-tsdb02-client.key",
|
|
# PGSSLCERT = "/home/wn/keys/psql/dehottgw-tsdb02-client.crt",
|
|
# PGSSLROOTCERT = "/home/wn/keys/psql/dev-internal-ca.crt")
|
|
|
|
con <- dbConnect(RPostgres::Postgres())
|
|
# res <-dbSendQuery(con, "select * from device_t")
|
|
# devices <- dbFetch(res)
|
|
# dbClearResult(res)
|
|
dbDisconnect(con)
|
|
|
|
|
|
|