Update connect.R