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 "NetworkMonitoring"')
devices <- dbFetch(res)
dbClearResult(res)
dbDisconnect(con)