R015 R语言控制流（for，while，ifelse，swi

控制流在正常情况下，R程序中的语句是从上至下顺序执行的。但有时你可能希望重复执行某些语句，仅在满足特定条件的情况下执行另外的语句。这就是控制流结构发挥作用的地方了。R拥有一般现代编程语言中都有的标准控制结构。包括用于条件执行的结构，用于循环执行的结构。

1. 重要概念：

• 语句（statement）是一条单独的R语句或一组复合语句（包含在花括号{ }中的一组R语句，使用分号分隔）；
• 条件（cond）是一条最终被解析为真（TRUE）或假（FALSE）的表达式；
• 表达式（expr）是一条数值或字符串的求值语句；
• 序列（seq）是一个数值或字符串序列

2. 循环结构

循环结构重复地执行一个或一系列语句，直到某个条件不为真为止。循环结构包括for和while结构。
for(var in seq) expr

image.png

while(cond) expr
注意：请确保括号内while的条件语句能够改变，即让它在某个时刻不再为真——否则循环将永不停止！

image.png

3. 条件结构

3.1 if-else

if(cond) expr

3.2 ifelse

if(cond) expr1 else expr2

image.png

3.3 switch

switch(expr, … , …）
其中的…表示与expr的各种可能输出值绑定的语句。

image.png

4 用户自编函数

R的最大优点之一就是用户可以自行添加函数。事实上，R中的许多函数都是由已有函数构成的。一个函数的结构如下：

myfunction <- function(arg1,arg2,……）{
statements
return(object)
}

## 自定义函数mydate，在函数声明中为参数指定的值将作为默认值，比如不指定type，则long极为默认格式
mydate <- function(type=c("long")) {
### 使用switch函数选择执行语句  
switch(type,
         long=format(Sys.time(),"%A %B %d %Y"),
         short=format(Sys.time(),"%m-%d-%y"),
## cat()将在输入的日期格式不匹配long或者short时运行        
 cat(type,"is not recognized type\n"))
}
### 查看日期
mydate("long")
mydate("short")
mydate("none")

注：有若干函数可以用来作为函数添加错误捕获或者纠正功能
warning()可以生成一条错误信息
message()可以生成一条诊断信息
stop()可以停止当前表达式并提示错误

image.png
image.png