Mock dplyr database

gistfile1.txt

tbl.mock_db <- function(src, name, ...) {
  return(src[[name]])
}

new_mock_db <-function(path) {
    files <- list.files(path, full.names = TRUE)  
    con <- purrr::map(files, ~readr::read_csv(., col_types = classes[[basename(.)]]))
    names(con) <- gsub(".csv$", "", basename(files))
    class(con) <- c("mock_db", "list")
    return(con)
}

con <- new_mock_db()
tbl(con, "table_1")

Note that this will only work for functions which are translated between dplyr and your database.