R Shiny应用在线调用OSM查询崩溃的排查与修复求助

1. 合规访问Nominatim服务（最可能解决问题） #

OSM的Nominatim服务要求请求必须包含合法的User-Agent标识，否则会返回HTML错误页而非JSON。修改geocode_osm调用，添加明确的User-Agent：

# 替换为你的应用名称和联系方式，比如你的邮箱
geocode_osm(
  address = your_address_input,
  user_agent = "YourShinyApp/1.0 your.email@example.com"
)

Nominatim官方要求User-Agent必须能让服务管理员联系到你，避免被判定为恶意爬虫封禁。

2. 替换为自定义地理编码实现 #

如果依赖包的默认请求逻辑有问题，直接用httr和jsonlite实现地理编码请求，完全控制请求参数和响应处理：

library(httr)
library(jsonlite)

custom_geocode <- function(address, user_agent) {
  # 构建Nominatim请求URL
  req_url <- modify_url(
    "https://nominatim.openstreetmap.org/search",
    query = list(
      q = address,
      format = "json",
      limit = 1,
      addressdetails = 1
    )
  )
  
  # 发送请求并设置headers
  resp <- GET(req_url, add_headers("User-Agent" = user_agent))
  
  # 检查响应状态
  if (http_status(resp)$category != "Success") {
    stop("地理编码请求失败: ", http_status(resp)$message)
  }
  
  # 确保返回的是JSON
  if (http_type(resp) != "application/json") {
    warning("返回非JSON内容，可能被拦截")
    return(NULL)
  }
  
  # 解析结果
  jsonlite::fromJSON(content(resp, "text", encoding = "UTF-8"))
}

在Shiny按钮的observeEvent里调用这个自定义函数，同时添加错误捕获，避免应用崩溃：

observeEvent(input$show_on_map, {
  tryCatch({
    geocode_result <- custom_geocode(
      address = input$address,
      user_agent = "YourShinyApp/1.0 your.email@example.com"
    )
    # 后续地图渲染逻辑
    leafletProxy("map") %>% ...
  }, error = function(e) {
    showNotification(paste("地理编码失败:", e$message), type = "error")
  })
})

3. 缓存地理编码结果 #

减少重复请求，避免触发Nominatim的访问频率限制，用memoise包缓存查询结果：

library(memoise)
# 缓存自定义地理编码函数
cached_geocode <- memoise(custom_geocode)

# 使用缓存版本
geocode_result <- cached_geocode(input$address, user_agent = "YourShinyApp/1.0 your.email@example.com")

4. 检查部署平台网络限制 #

• 如果部署在Shinyapps.io/Posit Connect等平台，确认平台允许访问nominatim.openstreetmap.org域名。部分企业内部部署的服务器可能有出站防火墙限制，需要管理员开放对应端口（443）。
• 若平台需要代理，在应用启动时设置代理环境变量：

  Sys.setenv(
    HTTP_PROXY = "http://your-proxy-server:port",
    HTTPS_PROXY = "http://your-proxy-server:port"
  )
  

5. 锁定包版本一致性 #

本地和线上环境的包版本差异可能导致请求逻辑不一致，用renv工具锁定依赖包版本：

1. 本地运行renv::init()初始化环境
2. 运行renv::snapshot()生成renv.lock文件
3. 部署时将renv.lock和应用代码一起上传，平台会自动恢复相同的包版本

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