सूची के रूप में सभी पैरामीटर प्राप्त करें

Question 1

क्या R सभी फ़ंक्शन तर्क प्राप्त करने के लिए एक ऑब्जेक्ट / फ़ंक्शन / विधि / कीवर्ड प्रदान करता है?

एक उदाहरण का उपयोग करना: function(a, b="default", ...)प्रदान करेगा aऔर bसाथ ही ...फ़ंक्शन वातावरण में भी। वहाँ एक बयान के समान है list(...)कि भी शामिल होगा aऔर bपरिणाम में?

या अभी तक एक और तरीका: एक आशुलिपि के लिए list(a=a, b=b, ...), दियाfunction(a, b, ...)

Question 2

मुझे लगता है कि आप चाहते हैं match.call:

tmpfun <- function(a,b,...) {
print(as.list(match.call()))
print(as.list(match.call(expand.dots=FALSE)))
}
> tmpfun(a=1, b=2, c=3, d=4)
[[1]]
tmpfun

$a
[1] 1

$b
[1] 2

$c
[1] 3

$d
[1] 4

[[1]]
tmpfun

$a
[1] 1

$b
[1] 2

$...
$...$c
[1] 3

$...$d
[1] 4

Question 3

एक समाधान का उपयोग करना है:

tempf <- function(a, b = 2, ...) {
    argg <- c(as.list(environment()), list(...))
    print(argg)
}
tempf(1, c = 3)
$a
[1] 1

$b
[1] 2

$c
[1] 3

यह तर्क मूल्यों की एक नामित सूची बनाता है।

Question 4

argsफ़ंक्शन का प्रयास करें

meanफ़ंक्शन के लिए तर्क क्या हैं ?

> args(mean)
function (x, ...) 
NULL

lmफ़ंक्शन के बारे में क्या ?

    > args(lm)
function (formula, data, subset, weights, na.action, method = "qr", 
    model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, 
    contrasts = NULL, offset, ...) 
NULL

यदि आप तर्कों की एक सूची प्राप्त करना चाहते हैं तो प्रयास करें

as.list(args(lm))

Question 5

संबंधित चीज़ की खोज करते समय इस सवाल पर ठोकर खाई। जब मुझे पता चलता है कि यह कई साल पुराना है, तो प्रतिक्रियाएं असंतोषजनक लगती हैं, और प्रश्न का कोई भी समाधान नहीं दिखता है।

formalsऔर environmentफ़ंक्शन के संयोजन का उपयोग करके, एक (अयोग्य) वर्कअराउंड बनाना संभव है । नीचे दिया गया उदाहरण, फॉर्मल्स से निकाले गए नामों का उपयोग करके पर्यावरण से तर्क निकालता है, फिर दीर्घवृत्त-सूची को जोड़ता है। यदि आप फ़ंक्शन कॉल के समय मानों को निर्धारित करना चाहते हैं, तो TRUE के तर्क_ तर्क को सेट करें। फ़ंक्शन में केवल फ़ंक्शन कॉल पर निहित या स्पष्ट रूप से सेट किए गए चर शामिल हैं।

allargs <- function(orig_values = FALSE) {
  # get formals for parent function
  parent_formals <- formals(sys.function(sys.parent(n = 1)))

  # Get names of implied arguments
  fnames <- names(parent_formals)

  # Remove '...' from list of parameter names if it exists
  fnames <- fnames[-which(fnames == '...')]

  # Get currently set values for named variables in the parent frame
  args <- evalq(as.list(environment()), envir = parent.frame())

  # Get the list of variables defined in '...'
  args <- c(args[fnames], evalq(list(...), envir = parent.frame()))


  if(orig_values) {
    # get default values
    defargs <- as.list(parent_formals)
    defargs <- defargs[unlist(lapply(defargs, FUN = function(x) class(x) != "name"))]
    args[names(defargs)] <- defargs
    setargs <- evalq(as.list(match.call())[-1], envir = parent.frame())
    args[names(setargs)] <- setargs
  }
  return(args)
}


tempf <- function(a, b = 2, ...) {
  d <- 5
  b <- 3

  cat("Currently set values defined in call or formals\n")
  print(allargs())
  cat("Values as defined at the time of the call\n")
  print(allargs(T))
}

tempf(1, c = 3)

Currently set values defined in call or formals
$a
[1] 1

$b
[1] 3

$c
[1] 3

Values as defined at the time of the call
$a
[1] 1

$b
[1] 2

$c
[1] 3

Question 6

मेरा मानना है कि आप देख रहे हैं formals:

formals(sd)
$x


$na.rm
[1] FALSE

और dputइस पर प्रयोग करने से आपको प्रश्न में निर्दिष्ट रूप दिया जाता है:

dput(formals(sd))
list(x = , na.rm = FALSE)

ध्यान दें कि आदिम कार्यों के formalsलिए काम नहीं करता है , केवल बंद हो जाता है।

Question 7

test <- function(
  x = 1,
  y = 2,
  ...
) {
  if(length(list(...)) == 0) {
    print(as.list(environment()))
  } else {
    print(c(as.list(environment()), list(...)))
  }
}

test()
test(z = 3)

Question 8

rlang::fn_fmls एक संक्षिप्त और साफ समाधान देता है:

library(ggplot2)
library(rlang)

# action
argument_list <- rlang::fn_fmls(fn = geom_point)

# evaluate output
class(argument_list)
#> [1] "pairlist"

is.list(argument_list)
#> [1] TRUE

argument_list
#> $mapping
#> NULL
#> 
#> $data
#> NULL
#> 
#> $stat
#> [1] "identity"
#> 
#> $position
#> [1] "identity"
#> 
#> $...
#> 
#> 
#> $na.rm
#> [1] FALSE
#> 
#> $show.legend
#> [1] NA
#> 
#> $inherit.aes
#> [1] TRUE

^{2020-02-25 को रेप्रेक्स पैकेज (v0.3.0) द्वारा बनाया गया}