r-调用函数内部for循环替代

my_function <- function(n){}

result = list()
for(i in 0:59){
    result[i] = my_function(i)
}
write.csv(result, "result.csv")
my_function <- function(n){}

result = list()
f