if (FALSE) { # requireNamespace("RSQLite", quietly = TRUE)
conn <- get_connection()
dplyr::copy_to(conn, mtcars, name = "mtcars", temporary = FALSE)
create_table(mtcars, conn, db_table = id("mtcars_historical", conn))
is.historical(get_table(conn, "mtcars")) # FALSE
is.historical(get_table(conn, "mtcars_historical")) # TRUE
close_connection(conn)
}
Run the code above in your browser using DataLab