recordPlot（）は最初のプロットのpar（）とlayout（）をどこに保存しますか？以下の記録のプロットで

Question

、私はパーを（）いくつかのように見える

library(PerformanceAnalytics) 
data(managers) 

# write the plot to the open device 
suppressWarnings(charts.RollingRegression(managers[, 1:6], managers[, 8, drop=FALSE], Rf = .04/12, colorset = rich6equal, legend.loc="topleft")) 

# record = investigate the primitive calls. notice no par() nor layout() before the first call to plot.new() 
recorded = recordPlot() 
lapply(recorded[[1]], "[[", 1) 

# as a result, the following creates one plot per page, not 3 on the same page: 
lapply(recorded[[ 1 ]] , function(x) { do.call(x[[ 1 ]] , as.list(x[[ 2 ]])) }) 

は、おそらくこれは、recorded[[ 2 ]]でエンコードされた最初のplot.new（）の呼び出しの前に設定レイアウトを構築し、設定する命令を見つけることができませんエンコードされた生データの種類？もしそうなら、最初のプロットの前にどのようにして私の指示をつかむことができますか？

警告：汚れたハック。
あなたが命令リストで初期状態をエンコードしたい場合は、ここに方法は次のとおりです。あなたはおそらくrecorded[[2]]に何があるかについての正しい

tryCatch(dev.off() , error = function(e) {}) 
plot.new() 
par(new = TRUE) 
originalLayoutFunction = graphics:::layout 
graphicsEnvironment = as.environment("package:graphics") 
newLayoutFunction = function(...) 
{ 
    originalLayoutFunction(...) 
    par(mfg = c(1 , 1)) 
} 

unlockBinding("layout" , env = graphicsEnvironment) 
assign("layout" , newLayoutFunction , envir = graphicsEnvironment) 
lockBinding("layout" , env = graphicsEnvironment) 

tryCatch(YOUR_PLOT_CALL_HERE , finally = 
           { 
            unlockBinding("layout" , env = graphicsEnvironment) 
            assign("layout" , originalLayoutFunction , env = graphicsEnvironment) 
            lockBinding("layout" , env = graphicsEnvironment)          
           }) 
recordedPlot = recordPlot() 
dev.off() 

Answer 1

。私の疑惑は、Rソースからこのコメントで参照「うまく内部を隠し」SEXPが含まれていることである。

/**************************************************************** 
* GEcreateSnapshot 
**************************************************************** 
*/ 

/* Create a recording of the current display, 
* including enough information from each registered 
* graphics system to be able to recreate the display 
* The structure created is an SEXP which nicely hides the 
* internals, because noone should be looking in there anyway 
* The product of this call can be stored, but should only 
* be used in a call to GEplaySnapshot. 
*/ 

はさらにダウン同じファイル（$SRC_HOME/src/main/engine.c）のビットは、他の可能性の照明通路です。

上記のように（そしてrecordPlotのヘルプファイルのように）、recordPlot()によって保存されたオブジェクトをぶつけないように強く勧めます。 "ここにはドラゴンズがいます"と彼らは皆言います、そして、あなたが警告されたそれらを満たすようになってきているように見えます）

/**************************************************************** 
* GEplaySnapshot 
**************************************************************** 
*/ 

/* Recreate a saved display using the information in a structure 
* created by GEcreateSnapshot. 
* 
* The graphics engine assumes that it is getting a snapshot 
* that was created in THE CURRENT R SESSION 
* (Thus, it can assume that registered graphics systems are 
* in the same order as they were when the snapshot was 
* created -- in patricular, state information will be sent 
* to the appropriate graphics system.) 
* [With only two systems and base registered on each device at 
* creation, that has to be true: and grid does not save any state.] 
* 
* It also assumes that the system that created the snapshot is 
* still loaded (e.g. the grid namespace has not been unloaded). 
* 
* It is possible to save a snapshot to an R variable 
* (and therefore save and reload it between sessions and 
* even possibly into a different R version), 
* BUT this is strongly discouraged 
* (in the documentation for recordPlot() and replayPlot() 
* and in the documentation for the Rgui interface on Windows) 
*/