Удалить нули из нескольких списков в списке

У меня есть большой список (A) списков SpatialPolygonsDataFrames. Некоторые из списков имеют нулевые значения (означает, что SpatialPolygonsDataFrame отсутствует). Я попытался :

A[!sapply(unlist(A, recursive=FALSE), is.null)]

Но безрезультатно, и тогда я попробовал:

A_nonulls=lapply(A, na.omit)

Каков правильный способ удалить нуль каждого списка в большом списке?

РЕДАКТИРОВАТЬ:

Я не могу сделать str(A), потому что A имеет 1000 списков и огромен. Первые элементы из первого списка выглядят так:

[[1]]
NULL

[[2]]
NULL

[[3]]
NULL

[[4]]
NULL

[[5]]
class       : SpatialPolygons 
features    : 1 
extent      : 722951.5, 726848.9, 4325874, 4329654  (xmin, xmax, ymin, ymax)

Поэтому я хочу удалить нули и оставить только непустые элементы.