Database Access - Final Project

Database Package

#install.packages("sqldf")
library(sqldf)

## Loading required package: gsubfn

## Loading required package: proto

## Loading required package: RSQLite

Connect to Database

db <- dbConnect(SQLite(), dbname = "nyc_taxi_db.sqlite")

List Table’s in Database

dbListTables(conn = db)

## [1] "fhv_daily"      "green_daily"    "v_taxi_daily"   "v_taxi_weather"
## [5] "weather_daily"  "yellow_daily"

Read Database Table to Dataframe

read_table <- data.frame(dbReadTable(db, "table_name"))

Query Database

query <- dbSendQuery(conn = db, "SELECT * FROM table_name")

Write file from Query

write.csv(read_table, "file_name.csv", row.names=FALSE)

dbDisconnect(conn = db)