1
2.onAttach <- function(libname, pkgname) {
3
4	drv <- getOption("sqldf.driver")
5	drv <- if (is.null(drv) || drv == "") {
6
7		if ("package:RPostgreSQL" %in% search()) {
8			"PostgreSQL"
9		} else if ("package:RpgSQL" %in% search()) {
10			"pgSQL"
11		} else if ("package:RMySQL" %in% search()) {
12			"MySQL"
13		} else if ("package:RH2" %in% search()) {
14			"H2"
15		} else "SQLite"
16
17	} else if (!tolower(drv) %in% c("pgsql", "mysql", "h2")) {
18		"SQLite"
19	}
20	if (drv != "SQLite") {
21		msg <- paste("sqldf will default to using", drv)
22		packageStartupMessage(msg)
23	} else {
24		loadNamespace("RSQLite")
25		loadNamespace("RSQLite.extfuns")
26	}
27}
28
29# .onUnload <- function(libpath) {}
30