6、R语言，调用自编函数

#选择日期的格式
mydate <- function(type = "long"){
  switch(type,
         long = format(Sys.time(), "%A %B %d %Y"),
         short = format(Sys.time(), "%m-%d-%y"),
         cat(type, "is not a recognized type\n")
         )
  

}

上面为自编函数，保存为mydate.R文件

调用：

> source("mydate.R")

> mydate("long")
[1] "星期二 三月 24 2015"
> mydate("short")
[1] "03-24-15"
> mydate("")
 is not a recognized type