r - 如何在 knit 中使用 ggmap 库的 get_map 函数？

Question

我的所有 R 代码都在独立脚本中按预期运行。一旦进入 R Markdown 文件， get_map() 调用就会崩溃。

map <- get_map(location = 'minneapolis', zoom = 9)

我收到错误:

label: unnamed-chunk-2
Warning in sink() : no sink to remove
label: unnamed-chunk-2
Error in process_file(text) :
Quitting from lines 53-64: Error in close.connection(con) : invalid connection
Calls: knit -> process_file
Execution halted knitr terminated with status 1

有什么想法为什么knitr和get_map玩得不好吗？

Answer 1

我花了一段时间才解决这个问题。根本原因是 ggmap 在其四个函数中对 closeAllConnections() 表现得“粗鲁”:mapdist()、geocode( )、revgeocode() 和 route()； knitr 使用 evaluate package评估 R 代码，该代码打开文本连接以记录 R 输出。由于 ggmap 已关闭所有连接，因此 evaluate 将无法再次关闭其连接，从而导致您看到的错误。请参阅https://github.com/hadley/evaluate/blob/master/R/watcher.r了解详情。

通常应该明确使用close()函数关闭哪些连接，并且使用closeAllConnections()是危险的因为这可能会关闭不应该关闭的连接。我不明白为什么作者必须使用它，我想你需要向他报告这个问题。最后我们应该能够毫无错误地运行它:

library(evaluate); library(ggmap)
evaluate("map <- get_map(location = 'minneapolis', zoom = 9)")