Create connect.R