db.R

Uploaded by:webmgr

              # Licensed under http://www.gnu.org/licenses/gpl-3.0.html
# author: Robert Koblischke

database_pensum <- list()
database_pensum$host <- "localhost"
database_pensum$user <- "pensum"
database_pensum$pwd <- "fwB9QUmzPA"
database_pensum$name <- "pensum"

database <- database_pensum

LTfLLdbConnect <- function(db_list=database) {
	require(RMySQL())
	dbConnect(MySQL(), user=db_list$user,password=db_list$pwd, host=db_list$host, dbname=db_list$name)
}