Added new debugging attempt in rSurvey with browser() in if loop