library(DBI)
con <- dbConnect(RPostgres::Postgres(), dbname='mainscnt', host='db.mainscnt.eu', user='wn')
res <-dbSendQuery(con, "select * from device_t")
devices <- dbFetch(res)
dbClearResult(res)
dbDisconnect(con)