mydata <- function(type) {

switch(type,

long = format(sys.time(),"%A %B %d %Y"),

short = format(sts.time(),"%m-%d-%y"),

cat(type,"is not recognized type\n")

)

}

R语言入门视频笔记--5--自定义函数