# NOT RUN {
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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab