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