if (FALSE) { # requireNamespace("RSQLite", quietly = TRUE)
conn <- get_connection()
dplyr::copy_to(conn, mtcars, name = "my_test_table_1", temporary = FALSE)
dplyr::copy_to(conn, mtcars, name = "my_test_table_2")
get_tables(conn, pattern = "my_[th]est")
get_tables(conn, pattern = "my_[th]est", show_temporary = FALSE)
close_connection(conn)
}
Run the code above in your browser using DataLab