Switch loop in r default