Error with FindVariableFeatures

[duanmuseventeen]

I am repeating the procession of the article Spatiotemporal dynamics of macrophage heterogeneity and a potential function of Trem2hi macrophages in infarcted hearts, whose PMID is 35933399 and DOI is 10.1038/s41467-022-32284-2. I used the code provided in this article. However, when I run the codes as following, i got an error.
MI.list <- SplitObject(experiment.aggregate, split.by = "batchid")

for (i in 1:length(MI.list)) {
MI.list[[i]] <- NormalizeData(MI.list[[i]], verbose = FALSE)
MI.list[[i]] <- FindVariableFeatures(MI.list[[i]], selection.method = "vst",
nfeatures = 2000, verbose = FALSE)
}

The error for FindVariableFeatures is:
error at [<-.data.frame(*tmp*, , i, value = c(0.00625, 0.267091836734694, :
there are 15945 rows in replaced data，but 17260 in data

It seems this error is raised by the upgraduation of Seurat package, because the version used in the article is 3, whereas I am using the Seurat version 5. How can I solve it? Thank you very much!