library(RSQLite)
pseudo  = dbReadTable(dbConnect(
  RSQLite::SQLite(),
  "./pseudonyme.db"),
  "eintraege")
dbDisconnect(dbConnect(
  RSQLite::SQLite(), 
  "./pseudonyme.db"))