我在R中有以下函数.它工作正常，但是，我认为这一定是运行此函数的更好方法.
values <- c("a","b")
print <- function(values){
size <- length(values)
if (size == 1) {
final <- values[1]
}else if(size == 2){
final <- paste0(values[2], " and ", values[1])
}else if(size == 3){
final <- paste0(values[3], " and ",values[2], " and ", values[1])
}
return(final)
}
print(values)
用户可以更改值的大小，因此如果 Select values <- c("a","b", "c")，函数将在最后一个条件下运行.然而，在艺术中，最后一个条件等于第二个条件加上一些新的东西.可以在使用前一个条件的行中创建if语句或其他内容.比如:
values <- c("a","b", "c")
print <- function(values){
size <- length(values)
if (size == 1) {
final <- values[1]
}else if(size == 2){
final <- paste0(values[2], " and ", final )
}else if(size == 3){
final <- paste0(values[3], " and ",final )
}
return(final)
}
print(values)