Commenting Out A Block In R