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")
)
}
时间: 2024-07-29 03:12:06
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")
)
}