創建一個列表，從一個字符向量提供給一個函數

Question

我想將變量傳遞給一個函數，並將它們用作列表，並且我有一個函數用「=」分割字符向量的項，並且將它們放入列表中。

my.function <- function(x) { 
    args <- x 
    newl <- list() 

for (i in 1:length(args)) { 
    keyval <- strsplit(args[[i]],"=")[[1]]; 
    key <- keyval[1]; val <- keyval[2]; 
    newl[[ key ]] <- val; 
} 
return(newl) 
} 

char<- c("name=value_1", "title=title", "show=show") 

my.function(char) 

$name 
[1] "value_1" 

$title 
[1] "title" 

$show 
[1] "show" 

然後我可以使用函數內這些參數只是這樣做：

args[['title']] 

但我當包含在這樣的字符等號它工作正常，當然想將變量傳遞給函數，而不僅僅是字符。所以，我想的功能能夠工作當我這樣做：

value_1 = "A" 
show= TRUE 
title= paste("This is my title for ", value_1, sep="") 

my.function(name=value_1, title=title, show=show) 

我可以只粘貼值是這樣的：

char= c(paste("name=", value_1, sep=""), 
     paste("title=", title, sep=""), 
     paste("show=", show, sep="")) 

但我不知道是否有更好的方法將這些變量作爲參數傳遞給函數。感謝您的幫助！

Answer 1

您可以使用...：

my.function <- function(...) list(...) 

此功能只創建一個基於ussed參數列表。

value_1 <- "A" 
show <- TRUE 
title <- paste("This is my title for ", value_1, sep="") 


my.function(name = value_1, title = title, show = show) 
$name 
[1] "A" 

$title 
[1] "This is my title for A" 

$show 
[1] TRUE 

---

此功能基於函數調用的參數的特徵向量：

my.function <- function(...) { 
    argList <- list(...) 
    res <- paste(names(argList), unlist(argList), sep = "=") 
    return(res)  
} 

my.function(name=value_1, title=title, show=show) 
[1] "name=A"      "title=This is my title for A" "show=TRUE" 

---

此功能類似於您的一個。它說明了如何訪問函數調用的參數：

my.function <- function(...) { 
    argList <- list(...) 
    newl <- list() 
    for (i in seq_along(argList)) { 
    key <- names(argList)[i] 
    val <- argList[[i]] 
    newl[[key]] <- val 
    } 
    return(newl)  
} 

my.function(name = value_1, title = title, show = show) 
$name 
[1] "A" 

$title 
[1] "This is my title for A" 

$show 
[1] TRUE