Использование lapply с функцией, которая возвращает SpatialPixelsDataFrame

Question

Я пытаюсь использовать функцию, которая возвращает объект SpatialPixelsDataFrame с использованием lapply и продолжает получать следующую ошибку

Ошибка в .printSpatial (x): объект 'nf' не найден

Моя настоящая функция читает в csv и применяет кригинг, но я обнаружил, что то же самое происходит даже с очень очень простыми функциями. Я сделал простой пример, используя данные по умолчанию, где lapply или list возвращает эту ошибку.

Так что, если у меня не может быть sp объектов в списке, есть ли в любом случае я могу запустить функцию на разных входах (в моих реальных данных файлы CSV), чтобы получить выходные данные?

  library(sp)

data(meuse.grid)

datalist <- list(meuse.grid, meuse.grid)

testout1 <- lapply(datalist,SpatialPixelsDataFrame,points = meuse.grid[c("x", "y")])
testout1 
[[1]]
class       : SpatialPixelsDataFrame 
dimensions  : 104, 78, 3103, 7  (nrow, ncol, npixels, nlayers)
resolution  : 40, 40  (x, y)
Error in .printSpatial(x) : object 'nf' not found


grid1 = SpatialPixelsDataFrame(points = meuse.grid[c("x", "y")], data = meuse.grid)
grid2 = SpatialPixelsDataFrame(points = meuse.grid[c("x", "y")], data = meuse.grid)
 # both grid 1 and grid two successfully return grids - don't want to print the whole thing

testout2 <- list(grid1,grid2)
testout2
[[1]]
class       : SpatialPixelsDataFrame 
dimensions  : 104, 78, 3103, 7  (nrow, ncol, npixels, nlayers)
resolution  : 40, 40  (x, y)
Error in .printSpatial(x) : object 'nf' not found

^{Создано в 2019-10-07 пакетом Представление (v0.3.0)}