使用R语言reticulate包执行Python代码时输出无法写入HTML文件的问题

问题分析 #

我之前也碰到过一模一样的问题！核心原因是：R的sink()函数只能捕获R自身的标准输出流，而通过reticulate调用Python代码时，Python的print()是直接输出到系统原生控制台，完全绕开了R的输出管道，所以sink()根本抓不到这部分内容。

解决方案 #

下面给你三个可行的解决思路，按推荐程度排序：

方案1：用reticulate自带的py_capture_output()捕获输出（最推荐）

reticulate专门提供了py_capture_output()函数，用来抓取Python代码的输出。我们只需要把捕获到的内容用R的cat()或print()输出，就能让sink()成功捕获并写入HTML文件了。

修改后的R脚本：

library(reticulate)

listfile <- "temp.html"
listcon <- file(listfile, "w")
sink(listcon, append = TRUE, type = "output", split = split)

# 捕获Python脚本的输出，再用R的cat输出给sink
py_output <- py_capture_output(py_run_file('code.py'))
cat(py_output)

# 重要：记得关闭sink，否则后续R输出会继续写入文件
sink()
close(listcon)

方案2：在Python代码中重定向stdout到R的输出流

如果你不想修改R脚本，可以直接修改code.py，让Python使用R的标准输出流来打印内容：

import sys
# 通过reticulate提供的r对象，调用R的标准输出流
sys.stdout = r.sys.stdout

print('Python hello code')

然后你的R脚本可以保持原有结构（但一定要加上sink()关闭捕获）：

library(reticulate)

listfile <- "temp.html"
listcon <- file(listfile, "w")
sink(listcon, append = TRUE, type = "output", split = split)

eval(parse(text="py_run_file('code.py')"))

sink()
close(listcon)

方案3：直接在R中嵌入Python代码并捕获输出

如果你的Python代码比较短，完全可以不用单独的.py文件，直接在R中执行并捕获：

library(reticulate)

listfile <- "temp.html"
listcon <- file(listfile, "w")
sink(listcon, append = TRUE, type = "output", split = split)

# 直接写Python代码并捕获输出
py_code <- 'print("Python hello code")'
cat(py_capture_output(py_run_string(py_code)))

sink()
close(listcon)

关键注意事项 #

• 一定要调用sink()来结束输出捕获，否则后续所有R控制台的输出都会被自动写入目标文件，容易导致混乱。
• 如果你的Python代码有大量输出或者需要持续的流处理，方案2的stdout重定向会比方案1的一次性捕获更高效。

内容的提问来源于stack exchange，提问作者Pawan Rama Mali