プライベート変数でR関数を作成するには？

Question

すべてのR関数が同じプライベート変数にアクセスする一連のR関数を作成するにはどうすればよいですか？

たとえば、readSetting(key)とwriteSetting(key,value)という関数を作成して、両方とも同じ隠しリストsettingsで操作したいとします。私はそうのようにそれをしようとすると...

local({ 
    settings <- list() 
    readSetting <<- function (key) settings[[key]] 
    writeSetting <<- function (key, value) settings[[key]] = value 
}) 

...その後readSettingとwriteSettingはlocalコールの外には見えません。そこに表示させたい場合は、

readSetting <- writeSetting <- NULL 

localコールの外に割り当てる必要があります。より良い方法が必要です。変数が公開されている2つの異なる方法で言わなければならないと、私のコードはDRYではないからです。

（この作品のコンテキストが、私はRのパッケージを開発していて、このコードはsourceを介してメインファイルにロードされた補助ファイルになるということです。）

この質問はHow to limit the scope of the variables used in a script?に関連しているが、答えが私の問題を解決することはありません。

Answer 1

あなたが使用してR6Classパッケージと以下の非常にラフなコードのように気にいらをシミュレートすることができます

Privates <- R6Class("Privates", 
       public=list(
        readSetting = function(key) { 
         private$settings[[key]] 
        }, 
        writeSetting = function(key,value) { 
         private$settings[[key]] <<- value 
        } 
        ), 
       private=list(
        settings = list() 
       ) 
) 
a <- Privates$new() 
a$writeSetting("a",4) 
a$readSetting("a") 

が直接a$settingが動作しない設定oを読みました。