library(RSQLite)library(DBI)setwd("path/to/working/directory")sqlite <- dbDriver("SQLite")conn <- dbConnect(sqlite, "my_database.sqlite")# For the full datasetdata <- dbReadTable(conn, "birdnet")# For a subset of the datasetres <- dbSendQuery(con, "SELECT * FROM birdnet WHERE location = X")