Question

我有一个源代码，想要将结果输出到txt文件。我设法使用sink（）函数执行此操作，如下图：

    source("Script sink test.txt", echo=F)
    loopsinktestA <- file("SinktestA.txt")
    sink(loopsinktestA, append=TRUE)
    sink(loopsinktestA, append=TRUE, type="output")
    Loop(MMatrix, "Parameter1", "Parameter2")
    sink()

除了一个细节之外，一切都很顺利。在我的函数输出中，有一些矩阵，往往很大。当我将结果显示在控制台上时，矩阵会根据屏幕上的空间而断开，这很正常（如果我有更大的空间，通过将帮助/图形推到最右边，更多列将会在矩阵被破坏之前出现）。我的问题是，在SinktestA.txt中完全相同的事情，基本上，它反映了控制台中的预期（我尝试了不同的导出并在控制台中提供了更多和更少的空间，结果在输出中文件打破了更少或更多列的矩阵。）

，例如，由于矩阵不能并排放置所有列，因此它在输出中的显示方式如下：

          Fi         M      Pi
    As   16.06343  32.42949 0.00000
    Ce   59.48432  39.78937 0.01211
    Ri    0.01211   0.01211 0.00000
    Ast 100.00000 100.00000 0.00000
    Ts   25.11802  45.56349 0.00000
    At    0.00000   0.00000 0.00000
    Dm    7.17831  28.16850 0.00000

          M        Pi
    As   0.00000  99.98789
    Ce   0.00000  99.98789
    Ri  99.98789 100.00000
    Ast  0.00000 100.00000
    Ts   0.00000  99.98789
    At   0.00000  99.98789
    Dm   0.00000  99.98789

注意：我实际上有更多列，但是出于示例目的，请考虑我在控制台上的空间只显示4列，之后必须打破矩阵。

我的问题是，是否有一种方法或参数可以用来表示在输出中断矩阵之前要使用的字符数或某些东西？或者指示输出的方式应该反映输出结果但不完全是其格式？

对不起，如果不是那么清楚。

Sink（）输出镜像屏幕边距

0 个答案: