您可以使用capture.output打印对象并将输出保存到字符向量中:
chars <- capture.output(print(t_SVI_Chennai), print(t_SVI_Mumbai))
Run Code Online (Sandbox Code Playgroud)
然后,您可以将其写入文件writeLines,例如:
writeLines(chars, con = file("output.txt"))
Run Code Online (Sandbox Code Playgroud)