[問題] S3函數主、子函數參數繼承問題

[a78998042a (Benjimin)]

[問題類型]:

程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)

[軟體熟悉度]:

使用者(已經有用R 做過不少作品)

[問題敘述]:

請教各位先進S3函數的寫法!有兩個問題。

需要功能：主函數有參數x，並依條件在內部以子函數改變x值，並取代主函數環境的x值


[程式範例]:

# 主函數
test_f = function(x, y, ...){
        result = para_reset_f()
        rm(list = c('x', 'y'))
        attach(result)
        return(sum(x, y))
}

# 子函數
para_reset_f = function(x = x, y = y){
        if(x > 5)  x = 100 else x = x
        return(environment())
}

test_f(5, 10)

# 這個程式會造成
# Error in para_reset_f() :
# promise already under evaluation: recursive default
# argument reference or Earlier problems?"

想詢問較好的解法

候選解法1.
result = para_reset_f(x = environment()$x, y = environment()$y)

候選解法2.
environment(para_reset_f) = environment()
result = para_reset_f() ## 子函數參數改為全空

網路上的解法是
result = para_reset_f(x. = x, y. = y)


候選1看起來是最乾淨的，不過還沒有看過有官方函數是這樣寫的
應該是有其他參數引用的方式?




第二個問題是，我想將子函數的特定參數值取代主函數
所以我在para_reset_f 輸出環境
但為了要讓他蓋過主函數
我先 rm(list = c('x', 'y'))
再 attach(result)

這個寫法看來不太健康，想詢問是否有比較正確的解法!
謝謝!


[關鍵字]:

S3、參數繼承

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 180.204.236.87 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1562337125.A.53D.html
※ 編輯: a78998042a (180.204.236.87 臺灣), 07/05/2019 23:57:33
推 clickhere: S3用第一個參數作判別.如果沒有,你需要一個default函數
→ clickhere: 或是給定,就像解法一.不要給x=x,y=y在param_reset_f中
→ clickhere: attach是盡可能避免的函數之一.
→ clickhere: 可以在para_reset_f裡面直接`assign()`任何env的任何
→ clickhere: 變數. assign('x', x, envir = parent.frame())
→ clickhere: return也可以免了, 必盡都要覆寫變數了.
  謝謝c大的說明與信件回復

  para_reset_f = function(x, y){
    if(x > 5)  x <- 100
    assign('x', x, envir = parent.frame())
    NULL
  }

  另外想詢問，如果 para_reset_f 內部更改一堆參數

  然後想要將 para_reset_f 環境內的所有參數輸出

  有什麼撰寫建議嗎? 用assign n次
※ 編輯: a78998042a (180.204.236.87 臺灣), 07/06/2019 11:47:58
→ celestialgod: ls + assign +for
→ clickhere: 另一種做法是把envir當做para_rest_f的參數.
→ clickhere: 直接在para_rest_f內用envir$x <- 100
 test_f = function(x, y, ...){
   env = environment()
   para_reset_f(x, y, env)
   sum(x, y)
 }

 para_reset_f = function(x, y, env){
  with(env, {
    if(x > 5){
       x <- 100
       y <- 500
    }})
 }

 好聰明! 這樣還少了assign的步驟
 看起來簡潔有力，謝謝解說
※ 編輯: a78998042a (180.204.236.87 臺灣), 07/07/2019 01:06:42