mysql.connect <- function(){
  dbconnector <<- dbConnect(dbDriver("MySQL"),dbname="XXXXX",user="YYYYY", password="ZZZZZZ")
}

mysql.getSelect <- function(){
  mysql.data <<- dbGetQuery(dbconnector, "SELECT  `attack`, `defence`, `hp`, `exp`, `gold`, `water`  FROM `monsters` ")
}