if (FALSE) {
my_con <- build_connection_string(server = "HPHI-EDWDEV")
con <- DBI::dbConnect(odbc::odbc(), .connection_string = my_con)
d <- db_read(con,
"SELECT TOP 10 * FROM [Shared].[Cost].[FacilityAccountCost]")
# Get a reference and collect later
ref <- db_read(con,
"SELECT TOP 10 * FROM [Shared].[Cost].[FacilityAccountCost]",
pull_into_memory = FALSE)
d <- collect(ref)
}
Run the code above in your browser using DataLab