如何在自定义R包中创建含osrm-backend服务的Docker镜像？

一、部署本地OSRM Docker后端（Docker新手友好步骤） #

1. 安装Docker
   从Docker官方渠道完成安装，确保Docker服务正常运行。

2. 拉取OSRM官方镜像
   打开终端执行：

   docker pull osrm/osrm-backend
   

3. 准备地图数据并预处理

   • 下载对应区域的OpenStreetMap数据（示例为美国全境）：

     wget https://download.geofabrik.de/north-america/us-latest.osm.pbf
     

   • 对地图数据进行OSRM格式预处理（生成服务所需的索引文件）：

     # 提取路网数据
     docker run -t -v "${PWD}:/data" osrm/osrm-backend osrm-extract -p /opt/car.lua /data/us-latest.osm.pbf
     # 分区处理
     docker run -t -v "${PWD}:/data" osrm/osrm-backend osrm-partition /data/us-latest.osrm
     # 自定义优化
     docker run -t -v "${PWD}:/data" osrm/osrm-backend osrm-customize /data/us-latest.osrm
     

4. 启动本地OSRM服务容器

   docker run -d -t -i -p 5000:5000 -v "${PWD}:/data" osrm/osrm-backend osrm-routed --algorithm mld /data/us-latest.osrm
   

   说明：-p 5000:5000将容器端口映射到本地5000端口，--algorithm mld适合大规模地图的高效查询。

二、在R包中调用本地OSRM服务 #

1. 基础调用示例
   在R包代码中，通过指定server参数指向本地服务，绕过官方演示服务器限制：

   library(osrm)
   
   # 本地OSRM服务地址
   local_server <- "http://localhost:5000"
   
   # 构造起点/终点数据
   origins <- data.frame(lon = c(-74.0060, -73.9857), lat = c(40.7128, 40.7484))
   destinations <- origins
   
   # 调用本地服务计算时间矩阵
   time_matrix <- osrmTable(
     src = origins,
     dst = destinations,
     server = local_server,
     measure = "duration"
   )
   
   print(time_matrix$duration)
   

2. 集成Docker容器启停逻辑到R包
   用processx包实现容器的自动启停（需在R包的DESCRIPTION中添加Imports: processx）：

   library(processx)
   
   # 启动本地OSRM容器
   start_local_osrm <- function(map_file = "us-latest.osrm", port = 5000) {
     # 检查容器是否已运行
     container_status <- run("docker", c("ps", "-q", "--filter", "name=osrm-local"))
     if (nchar(container_status$stdout) == 0) {
       run("docker", c(
         "run", "-d", "-t", "-i", "--name", "osrm-local",
         "-p", paste0(port, ":5000"),
         "-v", paste0(getwd(), ":/data"),
         "osrm/osrm-backend",
         "osrm-routed", "--algorithm", "mld",
         paste0("/data/", map_file)
       ))
       message("本地OSRM容器已启动")
     } else {
       message("本地OSRM容器已在运行")
     }
   }
   
   # 停止本地OSRM容器
   stop_local_osrm <- function() {
     run("docker", c("stop", "osrm-local"))
     message("本地OSRM容器已停止")
   }
   
   # 在包初始化或功能函数中调用启动逻辑
   start_local_osrm()
   

三、R包集成注意事项 #

• 在包的文档中明确告知用户：需预先安装Docker，且提前下载并预处理对应区域的OSRM地图数据；
• 添加连接检查逻辑，调用osrmTable()前用httr::GET(local_server)验证本地服务是否可达；
• 可提供辅助函数，帮助用户完成地图数据的下载与预处理，降低使用门槛。

内容的提问来源于stack exchange，提问作者rodrigo franco