R语言函数退出