应用rsample包中的rolling_origin函数后，解除深层嵌套的列表。

要解除深层嵌套的列表，可以使用两种方法：递归和循环。

方法一：递归

flatten_list <- function(lst) {
  if (!is.list(lst)) {
    return(lst)
  }
  unlist(lapply(lst, flatten_list), recursive = FALSE)
}

# 示例数据
nested_list <- list(1, list(2, list(3, list(4, 5))))

# 解除嵌套列表
flatten_list(nested_list)

方法二：循环

flatten_list <- function(lst) {
  while (any(sapply(lst, is.list))) {
    lst <- unlist(lst, recursive = FALSE)
  }
  lst
}

# 示例数据
nested_list <- list(1, list(2, list(3, list(4, 5))))

# 解除嵌套列表
flatten_list(nested_list)

这两种方法都可以将深层嵌套的列表解除，并返回一个平铺的列表。使用其中一种方法后，可以将列表作为参数传递给rolling_origin函数进行进一步的处理。