Rの設定メモとか作ったパッケージとか（工事中）

僕の主要言語はyorickとC++なんですが、Rを使う頻度が激増してるので、デバッグ用の便利ツール作りました。初心者なんで変な書き方してると思います（汗）。

envstocker：デバッグの補助

• 実行時に呼び出される関数内部のオブジェクト（正確には実行環境）を保存し、必要に応じて.GlobalEnvにロードする道具。
• エラーで止まっても止まらなくても各々の関数内での状態を再現してデバッグできるので再起関数デバッグとか楽になるかも
• 仕組み：関数内でその環境をグローバル変数として保存すると消されないで残るのでそれを利用。関数内のオブジェクトをロードするときは、①.GlobalEnvのコピー.ee.bを作成し、②.GlobalEnvのオブジェクト(.eeと.ee.recovered以外)を消去してから、③指定した関数内のオブジェクトを.GlobalEnvにロードして、④.GlobalEnvの親環境を.ee.bにする。
• 動作確認OS:ubuntu18.04, R-3.4.4
• 利用方法１：devtoolsを使ってインストールしてロード
  

  devtools::install_github('yorickuser/envstocker')
  library(envstocker)
  

• 利用方法２：githubのenvstockerの置き場所の"Clone or download"ボタンからenvstocker-master.zipをダウンロードして作業ディレクトリで展開してインストール
  

  install.packages("envstocker-master",repos=NULL,type="source")
  library(envstocker)
  

• 利用方法３：インストールしないでソースファイルenvstocker-package.R(10Kb)を自分の作業ディレクトリに置いて読み込む
  
  source("envstocker-package.R")
• アンインストール方法

  remove.packages("envstocker")
  

• マニュアル：envstocker_manual.pdf(PDF)の一番下の.ee.lという関数の説明を読んでください（パッケージとしてインストールした場合は、library(envstocker)してからhelp(.ee.l)で同じ内容を表示できます）。


• 主な変数や関数：
• .ee：
  関数内の実行環境をまとめて格納するリスト
• .ee.set()：
  .eeを初期化
• .ee.append ("関数名",environment())：
  .eeに関数を登録（.ee.aでも可）
• .ee.(n)：
  .eeの中を見る。.ee.()だと最後の関数、n=0は全て、n>0は最後からn番目まで、n<0は最初から-n番目まで。
• .ee.l(env,vartop)：
  指定した環境のオブジェクトをロード。.ee.l()で.eeの中の最後の関数の引数をロード。.ee.l(vartop=0)でその関数内の全てのオブジェクトをロード。
• .ee.recover()：
  .ee.lを実行する前の状態を復帰。
• .ee.recovered：
  復帰されてるかどうか（TRUE/FALSE）
• 使用例１：階乗を計算する再帰関数
fact(n)=n*fact(n-1)で階乗を計算する再帰関数を定義します。.


fact <- function(n){     
  .ee.append("fact",environment())
  if(n>1)return(n*fact(n-1))
  else return(1)
}

test <- function(n){
  .ee.set()
  print(fact(n))
  .ee.subt_time()
}


先頭の.ee.append("fact",environment())でこの関数の実行環境をリスト.eeに登録。
.ee.set()で.eeを初期化してからfactを実行⇒factが呼び出される度に自動的に実行環境が保存される。
.ee.sub_timeは経過時間を取得するだけなので無くても可。
.eeに保存された実行環境のリストは.ee.l()関数でロード。
.GlobalEnvは.ee.recover()で元の状態に戻る。


> test(3)
[1] 6
> ls.str(all.names=T)
.ee : List of 4
 $ time  : Named num 0.024
 $ fact  : 
 $ fact.2: 
 $ fact.3: 
.ee.recovered :  logi TRUE
fact : function (n)  
test : function (n)  
> .ee.(0)
fact : List of 1
 $ n: num 3
fact.2 : List of 1
 $ n: num 2
fact.3 : List of 1
 $ n: num 1
time : List of 1
 $ elapsed: num 0.024
> .ee.l()
fact  <- function (n)  
loading objects: n 
> ls.str()
n :  num 1
> ls.str(all.names=T)
.ee : List of 4
 $ time  : Named num 0.024
 $ fact  : 
 $ fact.2: 
 $ fact.3: 
.ee.b :  
.ee.recovered :  logi FALSE
n :  num 1
> .ee.recover()
> ls.str()
fact : function (n)  
test : function (n)  
> ls.str(all.names=T)
.ee : List of 4
 $ time  : Named num 0.024
 $ fact  : 
 $ fact.2: 
 $ fact.3: 
.ee.b :  
.ee.recovered :  logi TRUE
fact : function (n)  
test : function (n)  
> 



• 使用例２：再起関数がエラーで止まる場合:
（nが１のときに１を返すことをしないので、この関数は止まらない！）
この例では関数"test"も.eeに登録しています。

fact <- function(n){     
  .ee.append("fact",environment())
  return(n*fact(n-1))
}

test <- function(n){
   .ee.set()
   .ee.append("test",environment())
   y=fact(n)
   print(fact(y))
  .ee.subt_time()
}


以下の実行例ではfactが２７０５回呼び出されてやっと止まっています. しかし.eeにはtestとfact（２７０５回）の全ての実行環境が保存されており、.ee.l関数で自由にロードできるので、デバッグが楽になるはず..

> test(3)
エラー: C stack usage  8284212 is too close to the limit
> .ee.str(-4) ##最初の４つを表示
List of 4
 $ time  :List of 1
  ..$ elapsed: num 891
 $ test  :List of 1
  ..$ n: num 3
 $ fact  :List of 1
  ..$ n: num 3
 $ fact.2:List of 1
  ..$ n: num 2
> .ee.str(4)　##最後の４つを表示
List of 4
 $ fact.2702:List of 1
  ..$ n: num -2698
 $ fact.2703:List of 1
  ..$ n: num -2699
 $ fact.2704:List of 1
  ..$ n: num -2700
 $ fact.2705:List of 1
  ..$ n: num -2701
> .ee.l()
fact  <- function (n)  
loading objects: n 
> ls.str()
n :  num -2701
> .ee.l(.ee$test)
test  <- function (n)  
loading objects: n 
> ls.str()
n :  num 3
>