Getting Data fromSQL in R (code)