<- DBI::dbConnect(
con ::odbc(),
odbcDriver = "postgresql",
Server = Sys.getenv("DB_SERVER"),
Port = "5432",
Database = "soleng",
UID = Sys.getenv("DB_USER"),
PWD = Sys.getenv("DB_PASSWORD"),
BoolsAsChar = "",
timeout = 10
)
<- tbl(con,
bike_raw_data ::Id(schema="content", name="bike_raw_data"))
DBIglimpse(bike_raw_data)
Rows: ??
Columns: 12
Database: postgres [soleng@localhost:/soleng]
$ station_id <chr> "53", "72", "91", "106", "349", "1", "2", "3…
$ num_bikes_available <dbl> 12, 9, 4, 15, 22, 13, 10, 5, 11, 6, 16, 9, 5…
$ num_ebikes_available <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
$ num_bikes_disabled <dbl> 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0,…
$ num_docks_available <dbl> 6, 10, 18, 20, 9, 2, 1, 12, 0, 5, 3, 5, 14, …
$ num_docks_disabled <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
$ is_installed <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
$ is_renting <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
$ is_returning <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
$ last_reported <dbl> 1568996717, 1568996326, 1568996591, 15689965…
$ eightd_has_available_keys <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FA…
$ time <dttm> 2019-09-20 16:25:54, 2019-09-20 16:25:54, 2…
<- tbl(con, DBI::Id(schema="content", name="bike_station_info"))
bike_station_info glimpse(bike_station_info)
Rows: ??
Columns: 5
Database: postgres [soleng@localhost:/soleng]
$ station_id <chr> "08251448-1f3f-11e7-bf6b-3863bb334450", "8d68e4db-0bc9-44…
$ name <chr> "3rd & G St SE", "Vantage Hill Rd & Wainwright Dr", "Anac…
$ lat <dbl> 38.88119, 38.96670, 38.89654, 38.95369, 38.90041, 38.9593…
$ lon <dbl> -77.00183, -77.34849, -76.96012, -77.35972, -77.00195, -7…
$ last_updated <dttm> 2025-03-24 23:53:47, 2025-03-24 23:53:47, 2025-03-24 23:…