正規表現括弧ではなくカンマを選択

Question

私は、指定された関数のデフォルトを読み込む関数をRで作成しようとしています。これを行うために、私は関数に引数argsを使用しており、関数のデフォルトの引数に分解し、それらをグローバル環境にロードしようとしています。これには少しの正規表現が必要で、これにぶつかって私は問題に取り組んでいます。ここで

はサンプル関数です：

私は自分自身の関数使用して、このポイントにそれを得ている

myFunc <- function(a = 1, b = "hello world", c = c("Hello", "World")) {} 

：しかし

x <- "a = 1, b = \"hello world\", c = c(\"Hello\", \"World\")" 

、私は関数の引数を分割する上で苦労していますアップ。私はカンマで区切りたいと思いますが、デフォルトの中にカンマを持つ関数の引数（cのように）があると、問題が発生します。私が考えているのは、コンマにマッチする正規表現を呼び出す方法があり、2つのかっこの間のコンマではない場合は、strsplitを使用して、自分が望むものを得ることができるということです。 2つの括弧の間にコンマの場合に一致するように

私の試みは次のようになります。

今

\\(.*,.*\\) 

、私は上記のものを行う方法に見てきたし、それが先かもしれない負の表情のように思えます私が必要とするものなので、私はこのようなことをしようとしました。

splitx <- strsplit(x, "(?!\\(.*,.*\\)(,)") 

しかし、Rは違法な正規表現だと言います。引数にperl = TRUEを設定すると、同じ文字列が返されます。ここのお手伝いが大変ありがとうと思います。

Answer 1

です。

関数formals()は、関数の仮引数のペアリストを返します。 is.symbol()とis.null()をテストして、formals()の結果を使用することができます。シンボルではなく、nullでもないものは、デフォルト値を含みます。

get_default_args <- function(fun){ 
    x <- formals(fun) 
    w <- sapply(x, function(x)!is.symbol(x) && !is.null(x)) 
    x[w] 
} 

がlm()上でそれを試してみてください：コメントはを使用することを提案することを

myFunc <- function(a = 1, b = "hello world", c = c("Hello", "World")) {} 
get_default_args(myFunc) 
$a 
[1] 1 

$b 
[1] "hello world" 

$c 
c("Hello", "World") 

---

注：

get_default_args(lm) 
$method 
[1] "qr" 

$model 
[1] TRUE 

$x 
[1] FALSE 

$y 
[1] FALSE 

$qr 
[1] TRUE 

$singular.ok 
[1] TRUE 

はあなたの関数でそれを試してみてください。例えば

210。これはうまく動作しないかもしれませんが、match.call()はと呼ばれた後に関数の環境で引数を評価しますが、formals()は言語オブジェクト自体を評価します。したがって、formals()を使用する場合は、この関数をまったく呼び出す必要はありません。

Answer 2

私は、これは正しいアプローチ（使用match.call()それらが渡されたとして、引数を抽出する）であるとは思いませんがが、一致する正規表現は、私が試してみて、あなたの根本的な質問に答えるつもりです

x <- "a = 1, b = \"hello world\", c = c(\"Hello\", \"World\")" 
strsplit(x, ",(?![^()]*\\))", perl=TRUE) 

#> [[1]] 
#> [1] "a = 1"      " b = \"hello world\""   " c = c(\"Hello\", \"World\")"