Update R_script.R

minor update in db_login line