# NOT RUN {
library(dplyr)
# connect DBMS
# con_sqlite <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
# copy heartfailure to the DBMS with a table named TB_HEARTFAILURE
# copy_to(con_sqlite, heartfailure, name = "TB_HEARTFAILURE", overwrite = TRUE)
# con_sqlite %>%
# tbl("TB_HEARTFAILURE") %>%
# get_column_info
# Disconnect DBMS
# DBI::dbDisconnect(con_sqlite)
# }
Run the code above in your browser using DataLab