优化嵌套列表的子集操作

编程问答 2022-08-15

问题描述

是否可以提高此代码中最后一个子集操作的速度？ 此代码获取一小部分Open Streetmap数据，搜索所有具有名称的道路，并创建一个仅包含道路的新 osm 对象。 我在优化代码的最后一点时心烦意乱：

{
  "name": "ex-website","version": "1.0.0","scripts": {
    "start": "node server.js"
  },"dependencies": {
    "express": "^4.17.1"
  },"main": "server.js","devDependencies": {},"author": "","license": "ISC","description": ""
}

class（muc）

[1]“ osmar”“列表”

muc是一个列表列表，该列表的每个元素都有一个用于创建子集的ID。

这是完整的示例：

highway_subset <- subset(muc,ids = highway_subset_ids)

非常感谢您。

更新

如果您在使用ssl时遇到问题，请尝试复制并粘贴以下代码示例。这是我所能做到的最低要求。

我要优化的一行是这一行：

最终子集 

library("osmar")
src <- osmsource_api(url = "https://api.openstreetmap.org/api/0.6/")
muc_bbox <- center_bbox(11.575278,48.137222,1000,1000)
muc <- get_osm(muc_bbox,src)

highway_subset_ids <- subset(muc,way_ids = find(muc,way(tags(k == "highway"))))
highway_subset_ids <- find(highway_subset_ids,way(tags(k == "name")))
highway_subset_ids <- find_down(muc,way(highway_subset_ids))
highway_subset <- subset(muc,ids = highway_subset_ids)

谢谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

data.tabledplyrrrtidyr