आर: एक समारोह मैं इस तरह अदिश चर का एक गुच्छा को परिभाषित अंदर चर

Question

से एक नामित वेक्टर बनाने: समारोह के अंत में

a <- 10 
b <- a*100 
c <- a + b 

, मैं एक वेक्टर नामित में a,b,c वापस जाने के लिए चाहते हैं, कम से कम कोडिंग के साथ चर के रूप में एक ही नाम, के साथ, यानी मैं नहीं क्या करना चाहते हैं:

c(a = a, b = b, c = c) 

वहाँ है कि इस करता है एक भाषा निर्माण है? उदाहरण के लिए, यदि मैं बस return(c(a,b,c)) करता हूं तो यह एक अनाम वेक्टर लौटाता है, जो मैं नहीं चाहता हूं।

> cbind(a,b,c)[1,] 
    a b c 
    10 1000 1010 

वहाँ शायद एक बेहतर है, कम hacky, रास्ता नहीं है: मैं वर्तमान में ऐसा करने का एक hacky रास्ता नहीं है?

Answer 1

यहां आपके लिए ऐसा करने का एक फ़ंक्शन है, जो आपको वैकल्पिक रूप से कुछ मानों का नाम देने की अनुमति देता है। इस पर बहुत कुछ नहीं है, चाल को अनचाहे अभिव्यक्ति प्राप्त करने के अलावा और इसे एक वर्ण वेक्टर में छोड़ दें।

c2 <- function(...) { 
    vals <- c(...) 

    if (is.null(names(vals))) { 
    missing_names <- rep(TRUE, length(vals)) 
    } else { 
    missing_names <- names(vals) == "" 
    } 
    if (any(missing_names)) { 
    names <- vapply(substitute(list(...))[-1], deparse, character(1)) 
    names(vals)[missing_names] <- names[missing_names] 
    } 

    vals 
} 

a <- 1 
b <- 2 
c <- 3 

c2(a, b, d = c) 
# a b d 
# 1 2 3 

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

c2(mean(a,b,c)) 
# mean(a, b, c) 
#   1 

इसके अलावा, विकल्प का उपयोग करता है किसी भी समारोह के साथ के रूप में, c2 से एक और समारोह के भीतर किया जाना करने के लिए इंटरेक्टिव उपयोग के लिए अधिक उपयुक्त है।