如何将包含多边形信息的多个R字符列表转换为SpatialPolygons？

我有多个JSON文件，其中包含我需要提取的多边形信息。我阅读了JSON文件并创建了一个x列表：

select myJsonB  || jsonb_build_object('checkout',Meta->'accounting'->'checkout'->>'url')from myTable
 where myJsonB  @> '{"id": 11111}'

我只是想提取多边形信息，所以，我提取了感兴趣的列表（实际上，我的兴趣是从许多json文件中提取此信息）：

filenames <- list.files(path,pattern="*.json",full.names=TRUE) 
myJSON <- lapply(filenames,function(x) fromJSON(file=x))

我感兴趣的多边形值（在本例中为5个多边形）如下所示：

p_file <- list(myJSON[[2]][["_polygons"]][["value"]])

由于我不知道如何将这些多边形转换成Spatialpolygons，所以我陷入了这一点。

任何建议将不胜感激。