फ़ंक्शन के अंदर/अंदर कैसे उपयोग करें?

Question

मैं समझने के लिए संघर्ष कर रहा हूं कि यह क्यों काम नहीं करता है।

df <- data.frame(a=1:10, b=1:10) 

foo <- function(obj, col) { 
    with(obj, ls()) 
    with(obj, print(col)) 
} 
foo(df, a) 

[1] "एक" "बी" प्रिंट में

त्रुटि (col): वस्तु 'एक' नहीं मिला

ऐसा करता है काम:

with(df, print(a)) 

Answer 1

with से उपयोगी है और एक में पठनीयता में सुधार इंटरैक्टिव संदर्भ लेकिन आपके मस्तिष्क को एक प्रोग्रामिंग संदर्भ में चोट पहुंचा सकता है जहां आप काम करने के लिए आगे और आगे काम कर रहे हैं और विभिन्न वातावरण में चीजों से निपटने के लिए। आम तौर पर आर के भीतर, नामों के बजाय प्रतीकों का उपयोग करना "अर्थात् चीनी" का एक प्रकार है जो इंटरैक्टिव उपयोग में सुविधाजनक और पठनीय है लेकिन प्रोग्रामिंग के लिए हल्के से बहिष्कृत है [उदा। $, subset])। आप बल्कि एक प्रतीक (a) की तुलना में जहाँ तक एक नाम ("a") का उपयोग कर के रूप में समझौता करने को तैयार कर रहे हैं तो मैं बजाय सरल obj[[col]] पर वापस गिरने यहाँ with का उपयोग कर ...

तो, एक स्वयं के रूप में सुझाव है कि -contained जवाब:

foo <- function(object,col) { 
    print(names(object)) 
    print(object[[col]]) 
} 

यदि आप एकाधिक स्तंभों के लिए अनुमति देने के लिए करना चाहता था (यानी एक चरित्र वेक्टर)

foo <- function(object,col) { 
    print(names(object)) 
    print(object[col]) 
} 

संपादित: refra एक फ़ंक्शन के साथ subset का उपयोग करने से, 0 हैडली के सुझाव

(यह एक डेटा फ्रेम के रूप में उत्तर प्रिंट करेगा, भले ही एक कॉलम चुना गया हो, जो हो सकता है कि आप जो भी चाहते हों)।

Answer 2

किसी भी कार्य को पारित किया गया कुछ भी एक वस्तु, एक स्ट्रिंग या संख्या होना चाहिए। इसके साथ दो समस्याएं हैं:

1. इस मामले में आप एक वस्तु के रूप में "ए" को पारित करने का प्रयास कर रहे हैं, जब आपको वास्तव में इसे एक स्ट्रिंग की तरह गुजरना चाहिए।
2. के साथ (ओबीजे, एलएस())) फ़ंक्शन पर्यावरण (फ़ंक्शन स्कोपिंग) पर वापस आ जाएंगे, न कि जब तक आप इसे मुद्रित नहीं करते हैं तब तक स्क्रीन नहीं।

तुम क्या चाहते अधिक की तरह है:

foo <- function(obj, col) { 
     print(with(obj, ls())) 
     with(obj, print(obj[[col]])) 
    } 

foo(df, "a") 

या यदि आप केवल एक स्तंभ के लिए देख रहे मुद्रित करने के लिए:

foo <- function(obj, col) { 
      with(obj, print(obj[[col]])) 
     } 

foo(df, "a") 

Answer 3

फ़ंक्शन तर्क कॉल में फ़ंक्शन में उपयोग करने से पहले मूल्यांकन किया जाता है (इंटरैक्टिव उपयोग के विपरीत)। यहां आपके पास इस समस्या के दो समाधान हैं।

foo1 <- function(obj, col) { 
      with(obj, print(eval(col))) 
     } 
foo1(mydf, quote(a))# here you have to remember to quote argument 


foo2 <- function(obj, col) { 
      col <- as.expression(as.name(substitute(col)))#corrected after DWIN comment 
      with(obj, print(eval(col))) 
     } 
foo2(mydf, a)# this function does all necessary stuff