add R code for call MySQL in R