if (FALSE) { # requireNamespace("RSQLite", quietly = TRUE)
conn <- get_connection()
mt <- dplyr::copy_to(conn, dplyr::distinct(mtcars, .data$mpg, .data$cyl), name = "mtcars")
create_index(conn, mt, c("mpg", "cyl"))
close_connection(conn)
}
Run the code above in your browser using DataLab