结合使用map_int和length() / formals()
结合使用map_int、length()和formals()是一种在R语言中对函数进行批量处理的技巧。
map_int是purrr包中的一个函数，它可以将一个函数应用到一个列表或向量的每个元素，并返回一个整数向量。
length()是一个R语言中的基本函数，用于计算一个对象的长度。
formals()是一个R语言中的基本函数，用于获取函数的形式参数列表。
结合使用这三个函数，可以实现对函数列表的遍历操作，并获取函数的形式参数个数。
下面是完善且全面的答案：
结合使用map_int、length()和formals()，可以实现对函数列表的遍历操作，并获取函数的形式参数个数。
首先，需要安装和加载purrr包：
install.packages("purrr") # 安装purrr包
library(purrr) # 加载purrr包假设有一个函数列表func_list，包含多个函数对象：
func_list <- list(func1, func2, func3) # 假设func_list为函数列表现在，可以使用map_int函数遍历函数列表，并结合length()和formals()函数获取函数的形式参数个数：
param_counts <- map_int(func_list, ~ length(formals(.x))) # 获取每个函数的形式参数个数其中，~是一个匿名函数的符号表示法，.x表示当前正在处理的函数对象。
最后，param_counts将包含每个函数的形式参数个数。
这种技巧可以方便地对函数列表进行批量处理，并获取函数的形式参数个数，对于批量分析函数特征、调用函数等场景非常有用。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云函数计算（云原生Serverless）：https://cloud.tencent.com/product/scf
- 腾讯云数据库云服务：https://cloud.tencent.com/product/cdb
- 腾讯云人工智能：https://cloud.tencent.com/product/ai
- 腾讯云物联网平台：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发平台：https://cloud.tencent.com/product/imdp
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云区块链服务：https://cloud.tencent.com/product/tbaas
- 腾讯云游戏多媒体处理服务：https://cloud.tencent.com/product/gmp
相关·内容
2回答
给一个
sym <- as.symbol("x")
我想要创建一个以这个符号作为名称的。
correct_answer <- alist(x = )
以下内容不太有效，因为它将NULL作为值。
setNames(list(NULL), deparse(sym))
答案的第一个元素似乎是一个空符号。
class(correct_answer[[1]])
## [1] "name"
deparse(correct_answer[[1]])
## [1] ""
但是，不能使用as.symbol()创建空符号。
as.symbol("
浏览 4提问于2017-03-10得票数 3
回答已采纳
1回答
我试图在R中编写一个函数，它接受两个函数(用一个可以被视为相同的参数定义的函数)，将它们相乘，并返回在某个新点上求出的乘积的积分。现在，乘以函数并不难，这里的问题在于，与其计算参数x中的一个函数，不如在w/x中计算它，其中w是新的参数(但我只想在函数产品中这样做)。这是我的代码：
"%*f%" <- function(a,b) {
force(a)
force(b)
function(x){a(x) * b(x)}
}
pdf_product <- function(pdf1, pdf2) {
浏览 0提问于2017-04-05得票数 0
回答已采纳
我正在使用下面的示例代码。
auto kernarg = hip_impl::make_kernarg(kernel, std::tuple<Args...>{std::move(args)...});
.
.
.
template <typename... Formals, typename... Actuals>
inline impl::kernarg make_kernarg(
void (*kern)(Formals...), std::tuple<Actuals...> actuals) {
static_assert(sizeof...(Fo
浏览 1提问于2019-10-15得票数 0
回答已采纳
在不知道默认值的情况下，如何告诉R使用函数参数的默认值而不使用函数调用中的参数？
我知道我可以在rnorm()中使用mean的默认值
rnorm(n = 100) # by omitting the argument
# or
rnorm(n = 100, mean = 0) # by including it in the call with the default value
但是假设我不知道默认值，而是希望在函数调用中显式地包含它。我怎样才能做到这一点？
浏览 3提问于2017-02-08得票数 4
回答已采纳
1回答
我有一个列表，其中至少有一个元素是函数:我想取消它的列表。所有函数在某种程度上都是相关的，并希望获得一个函数，该函数接受所有使用的参数并输出指定的结果：
f=c(a=function(x,y)x+y+2*x^2,b=function(m)m*exp(m),d=function(x,m)x^2+2*x*m)
f
$a
function (x, y)
x + y + 2*x^2
$b
function (m)
m * exp(m)
$d
function (x, m)
x^2 + 2 * x * m
预期产出：
g = function(x) c(x[1] + x[2] + 2*x[1]
浏览 0提问于2018-03-28得票数 0
回答已采纳
我正在复活上世纪80年代早期的一个古老的LISP程序。(这是Nelson-Oppen简化程序，一个早期的证明系统。这个版本是福特Pascal-F验证器的一部分，1982年在Franz LISP中运行。)下面是整个程序：
我正在将代码转换为在Linux上的clisp下运行，需要一些建议。大多数问题都与宏有关。这是今天的问题。
DEFSMAC和DEFMAC
更多旧的斯坦福AI Lab宏，在def宏成为语言的一部分之前，使宏定义更容易。宏和它们的文档在这里：
这些宏可以生成更多的宏。
;;; defmac (define macro) and defsmac (define simple mac
浏览 9提问于2017-01-19得票数 4
回答已采纳
我正在尝试使用map_int()函数从包中获取函数列表中的参数数量。 这似乎是我手动查找的输出： length(names(formals(add_count))) 但问题是使用map()应用这一系列函数来自动执行此过程，并最终返回具有最多/最少参数的top/least函数： map(dplyr_functions, length(formals)) 上面的代码返回一个" error : Can't pluck from a closure“错误 到目前为止，这似乎可以返回函数列表的参数列表： map(dplyr_functions, formals) 但是我在获取实际的计数
浏览 6提问于2019-10-12得票数 0
2回答
我有一个包含多个字符串的列表。我想计算列表中每个元素中唯一字符串的数量。例如：
我的名为test的列表如下所示：
test <- list(
c("X", "Y", "Z", "X"),
c("W", "X", "X"),
c("Z", "W", "Y", "X", "Z", "Z")
)
我想要一个输出，它可以告诉我一些类似的东西：
[[1]] 3
[[2]] 2
浏览 0提问于2019-04-16得票数 0
3回答
我有一些有很多参数的函数。所以我想创建一个参数列表，并将它们传递给函数。
以?mean函数为例：
mean(x, trim = 0, na.rm = FALSE, ...)
假设我想计算赋值给变量x的1:10的平均值，但将其他参数作为列表传递：
gm <- list (trim = 0, na.rm = FALSE)
mean(1:10, gm)
#R> Error in mean.default(1:10, gm) : 'trim' must be numeric of length one
我试着使用do.call，但也不起作用。
do.call(mean,l
浏览 0提问于2014-10-09得票数 9
2回答
我有以下代码
library(tidyverse)
dat <- iris %>%
group_by(Species) %>%
summarise(summary = list(fivenum(Petal.Width)))
dat
#> # A tibble: 3 x 2
#> Species summary
#> <fct> <list>
#> 1 setosa <dbl [5]>
#> 2 versicolor <dbl [5]>
浏览 0提问于2018-04-05得票数 4
回答已采纳
1回答
有没有办法
automatically?中的在包加载？上运行脚本，更改默认值
例如，让R检测您是在使用Windows还是使用Mac。然后R会改变一些默认的函数输入值。
浏览 0提问于2020-04-06得票数 0
回答已采纳
2回答
R中列表的子集
、、
关于在R中使用[]操作符设置命名列表的子集，我有几个问题：
例如，考虑列表formals <- list(x = DOUBLE, y = DOUBLE, z = NULL)。在本例中，DOUBLE被视为R中的符号。
1)如何检索所有不等于NULL的元素。我尝试过formals[formals != NULL]，但它只返回一个没有成员的list类型的对象。
2)如何检索名称满足某个条件的元素。例如，如何获取名称不是z的所有元素？我可以使用names(formals)，但这很麻烦，我希望使用[]能快速解决这个问题。
浏览 0提问于2013-06-11得票数 1
回答已采纳
2回答
为了回答，我编写了使用任意分位数函数作为参数的。
etacor=function(rho=0,nsim=1e4,fx=qnorm,fy=qnorm){
#generate a bivariate correlated normal sample
x1=rnorm(nsim);x2=rnorm(nsim)
if (length(rho)==1){
y=pnorm(cbind(x1,rho*x1+sqrt((1-rho^2))*x2))
return(cor(fx(y[,1]),fy(y[,2])))
}
coeur=rho
rho2=sqrt(1-rh
浏览 4提问于2015-05-04得票数 3
回答已采纳
1回答
我正在尝试创建一个随附的函数，它将：
cat() readline(). 处理一些数据，请求用户输入(即通过readline() )根据cat()的结果，返回一个函数，其中返回函数的参数之一是readline().输入的值。
此外，我希望返回函数的参数的其余默认值是用户可解释的。也就是说，我不希望默认值是隐藏在父环境中的变量的变量名(这一规定排除了简单的参数传递)。具体来说，我希望arg()返回实际的评估数字，等等。
我在下面做了这个解决方案，但感觉很笨重，很尴尬。有什么更优雅的方法来解决这个问题吗？
top <- function(year=1990, n.times=NULL){
浏览 5提问于2012-06-08得票数 2
回答已采纳
1回答
我在R端定义了一个如下函数： foo <- function(arg1, arg2, arg3) {
...
} 以及使用Rcpp的c++中的一个函数，该函数获取全局环境并实例化R函数以从该函数执行它。代码如下： namespace Rcpp;
void myFunction() {
...
Environment env = Environment::global_env();
Function funct = env["foo"];
...
} 它工作得很好，但我想检查R函数是否恰好有3个参数。如何在c++方法中获取R函数的参
浏览 10提问于2019-04-03得票数 1
回答已采纳
这可能看起来是一个过于复杂的问题，但它让我在一段时间内有点抓狂。这也是出于好奇心，因为我已经有了一种方法来做我需要的事情，所以这并不重要。
在R中，我需要一个函数来返回一个命名列表对象，其中包含用户输入的所有参数和值。为此，我编写了以下代码(玩具示例)：
foo <- function(a=1, b=5, h='coconut') {
frm <- formals(foo)
parms <- frm
for (i in 1:length(frm))
parms[[i]] <- get(names(frm)[i])
浏览 3提问于2011-11-05得票数 13
回答已采纳
我有以下功能
colr <- function(file){
a <- file %>%
read_xlsx()
ncol(a)
}
我想把一个tibble -它包含我的excel文件名的一个列--传递给这个函数，并创建一个新的列，它告诉我excel电子表格中的列数。
所以我的老虎(file.list)是
> file.list
<chr>
file_a.xlsx
file_b.xlsx
file_c.xlsx
我想要以下几点
> file.list ncols
<chr>
浏览 0提问于2019-04-19得票数 0
回答已采纳
6回答
R是否提供对象/函数/方法/关键字来获取所有函数参数？
举个例子：function(a, b="default", ...)将在函数环境中提供a和b以及...。是否有类似于list(...)的语句也会在结果中包含a和b？
或者换一种方式:给定function(a, b, ...)，list(a=a, b=b, ...)的简写形式
浏览 1提问于2012-08-09得票数 86
回答已采纳
2回答
假设我有一个包含5个向量的列表，这些向量填充了1到d之间的整数，其中d可以是任何整数 d = 30 #Intergers that I want to count, i.e. 1:30
set_list <- list(s1 = c(2,4,3,1,20,30), s2 = c(3,30,23,1,3,4),
s3=c(3,4,5,13,15,12, 23:29, 30), s4 = c(1:10, 13:15, 17),
s5 = c(15:20, 23)) 在不使用列表元素1-5和整数1-30的双重循环的情况下，我想计算从1
浏览 9提问于2021-06-15得票数 1
回答已采纳
3回答
我正在尝试编写一个程序，它接受一个表达式作为输入，并返回一个将该表达式绑定为主体的函数。
caller <- function (expr, params) {
Function <- function (params, body, env = parent.frame()) {
# returns a function
}
Function(params, body = expr)
}
func <- caller (a + b, c('a', 'b'))
func(1, 2)
[1] 3
我
浏览 0提问于2013-05-11得票数 6
回答已采纳
2回答
至少就目前而言，这是我学习的一个练习，所以实际的功能或它们的复杂性不是问题。假设我编写了一个函数，其参数列表包括一些输入变量和一个函数名，作为字符串传递。然后，这个函数在内部计算一些变量，并“决定”如何将它们提供给我传入的函数名。
对于非原语函数，我可以这样做(在本例中，假设我的funcname函数的非参数最多只有(x,y,z)参数)。如果是这样的话，我将不得不编写一些代码来搜索匹配的names(formals(get(funcname)))，以避免删除其他参数)：
foo <- function (a,b,funcname) {
x <- 2*a
y <-
浏览 3提问于2014-09-22得票数 8
回答已采纳
向函数的所有未指定参数传递默认参数的好方法是什么？例如，使用list.dirs有三个参数：path、full.names和recursive。在这个例子中。我想提供path参数，然后提供一个默认参数(FALSE)，该参数被传递给所有剩余的函数参数。在这个例子中，简单地为剩下的两个参数指定FALSE显然没有问题，但是如果有很多参数我想用默认值指定呢？
相当于
list.dirs(path=".", full.names = FALSE, recursive = FALSE)
但是像这样的事情(不起作用)
do.call("list.dirs", list(path
浏览 3提问于2015-12-01得票数 1
回答已采纳
2回答
我正在尝试获取函数的参数，其中函数名存储为字符串func_name。通常情况下，我会像formals(func_name)一样这样做，这样做很好。但是，我有一个特殊的例子，即func_name的包名也附加在一起，例如package::func_name。
问题是我打电话给formals(package::func_name)：
Error in get(fun, mode = "function", envir = envir) :
object 'package::func_name' of mode 'function' was not
浏览 6提问于2022-11-11得票数 2
2回答
我正在寻找一个简单的函数来加速我编写和调试R函数的能力。考虑以下代码块：
# Part A:
myfun = function(a, b = 5, out = "hello"){
if(a>b) print(out)
return(a-b)
}
# Part B:
b = 5
out = "hello"
# Part C:
do.args = function(f){
#intialize the arguments of myfun in the parent environment
???
}
函数m
浏览 2提问于2013-08-15得票数 2
回答已采纳
1回答
是否有一种方法从函数的外部提取任何给定函数的参数及其各自的默认值？
例如，考虑到：
myfunc <- function(a, b = 1) { print(c(a, b)) }
我在寻找一些会返回的函数：
list(a = NULL, b = 1)
或其中的一些变化。
浏览 2提问于2016-04-10得票数 9
回答已采纳
假设我有一个函数f作为
f = function(x = 1, y, z, t) { x + y + z}
和一个列表l这样
l = list(Y = 2, t = "test")
我可以用f来评估l
eval(quote(f(y = Y, z = 3)), envir = l)
6
我的问题是，我想得到函数f ie最后使用的参数的所有值。函数magic，它将接受调用对象和环境，并返回用于计算表达式的所有参数的值。
例如：
call_obj = quote(f(y = Y, z = 3))
magic(call_obj, envir = l)
# I get a named l
浏览 2提问于2021-01-08得票数 4
回答已采纳
2回答
在函数r中更改参数名
、、、
我试图调整函数中参数的名称。我想要创建一个过程，它接受函数的主体，查找x，将每个x转换为x0，然后将函数恢复到以前的状态。提供一个例子：
f = function(x, y) -x^2 + x + -y^2 + y
# Take old names
form_old = names(formals(f))
# Make new names
form_new = paste0(form_old, 0)
# Give f new formals
formals(f) = setNames(vector("list", length(form_new)), form_new)
# C
浏览 3提问于2015-11-22得票数 4
回答已采纳
2回答
我有一个列表，其中每个条目都包含另外两个列表。该列表(名为test)的结构如下： str(test)
List of 10
$ :List of 2
..$ G: int [1:3] 1 3 4
..$ T: int 2
$ :List of 2
..$ A: int 4
..$ G: int [1:3] 1 2 3
$ :List of 2
..$ G: int [1:2] 1 4
..$ T: int [1:2] 2 3
$ :List of 2
..$ C: int [1:2] 1 2
..$ G: int [1:2] 3 4 如你所见，在列表的
浏览 7提问于2021-06-16得票数 0
回答已采纳
1回答
因此，我正在尝试查找每个名称在另一个数据集中出现的次数。我尝试运行的代码是：
Data$Count <- grep(Data$Name,OtherDataSet$LeadName) %>% length()
问题是，当我运行此命令时，名字的数字将映射到该列中的每个点。为什么会发生这种情况？
浏览 1提问于2018-10-24得票数 0
作为函数的一部分，我希望输出所有参数及其值的列表，包括默认值。例如，具有以下参数的函数：
foo <- function(x=NULL,y=NULL,z=2) {
#formals()
#as.list(match.call())[-1]
#some other function?....
}
按如下方式提供输出：
> foo(x=4)
$x
[1] 4
$y
NULL
$z
[1] 2
调用函数时，formals不会更新以给出值的参数值。match.call提供，但不提供参数的默认值。有没有其他函数可以提供我想要的输出？
浏览 1提问于2013-01-18得票数 20
回答已采纳
1回答
我们怎么知道一个函数有多少个参数？
例如，对于给定的函数f，我希望这样做：
if (arg_number(f) == 0)
f()
else if (arg_number(f) == 1)
f(FALSE)
浏览 3提问于2017-07-27得票数 3
回答已采纳
1回答
是否有内置的R函数，或编写R函数的方法，可以检查另一个函数接受多少输入，以及列出可选参数的名称。
让我们调用这个所需的函数f，然后使用以下命令：
f(dnorm)
应输出
4
和
mean, sd, log
因为有4个与'dnorm‘和3个可选参数相关联的参数:平均值、sd、log。
或者这不可能？任何洞察力都是值得欣赏的！
浏览 0提问于2014-03-01得票数 2
回答已采纳
2回答
考虑以下代码
i = 3
j = i
i = 4 # j != i
然而，我想要的是
i = 3
f <- function(x, j=i)
x * j
i = 4
f(4) # 16, but i want it to be 12
如果您想知道我为什么要这样做，您可以考虑这段代码--应用程序是一个多重递减模型。转换矩阵的对角线是该行中其他递减项的之和。我想定义我需要的减量，而不是使用这些递减来计算其他函数。在这种情况下，我只需要uxt01和uxt10，并从它们生成uxt00和uxt11函数。我想要的东西能扩展到更高的维度。
Qxt <- matrix(c(uxt00=f
浏览 5提问于2015-07-28得票数 6
回答已采纳
3回答
查找R中出现的循环的向量化
、、、、
我在dataset中有一个变量，其中包含我想对其进行字符串搜索(female$Var2)的短语。我希望找到每个短语在另一个dataframe (female_df$MH2)中存在的行数。因此，例如，female$Var2看起来是：
myocardial infarction drug therapy
imipramine poisoning
oximetry
thrombosis drug therapy
angioedema chemically induced
我想在dataframe female_df$MH2中找到包含上述每个短语的行数，如下所示
oximetry, hydrogen
浏览 1提问于2017-07-14得票数 0
回答已采纳
1回答
如何可靠地从函数外部判断形式函数参数是否具有默认值？
在下面的示例中，我希望确保下面的测试不会在参数有或没有默认值时找到：
myfun <- function(a, b=1, ...) {}
formals(myfun)
for (n in names(formals(myfun))) {
if (is.name(formals(myfun)[[n]])) {
cat(n, "has no default value\n")
} else {
cat(n, "has a default value:", formals(myfun)
浏览 3提问于2016-01-22得票数 5
回答已采纳
1回答
我阅读了一篇关于函数参数的，其中包含了formals函数，我非常想知道该函数是如何定义的。我使用了base:::formals，它提供了：
function (fun = sys.function(sys.parent()))
{
if (is.character(fun))
fun <- get(fun, mode = "function", envir = parent.frame())
.Internal(formals(fun))
}
对我来说，不清楚这是如何工作的，因为在formals函数的定义中使用了formals函数。在我看来，这是自相矛
浏览 18提问于2020-05-07得票数 3
回答已采纳
1回答
我不确定这是否可能，但我希望能够获取函数的默认参数值，并在不删除逗号的情况下测试它们和函数中的代码(这在有许多参数的情况下特别有用)。
实际上，我希望在将参数发送到函数时能够使用逗号，但如果我复制并粘贴参数并自行运行，则不会使用这些逗号。
例如：
foo=function(
x=1,
y=2,
z=3
) {
bar(x,y,z)
}
现在，要在代码块之外测试函数片段，请复制并粘贴
x=1,
y=2,
z=3
bar(x,y,z)
但是这会给出一个错误，因为x=1后面有一个逗号
也许我的问题问得不对。如果这很奇怪，那么调试函数的首选方法是什么？
请注意，刚刚
浏览 0提问于2014-04-09得票数 1
1回答
我目前正在为一门课程学习球拍/计划(我不知道有什么区别，实际上，我也不确定课程是否涵盖了这一点)。我正在尝试一个基本的例子，实现牛顿方法来找到一个数字的平方根；然而，我遇到了一个问题，如何找到两个数字之间的距离。
似乎无论出于什么原因，当我试图在两个数字之间应用减法运算符时，它会返回一个列表。
#lang racket
(define distance
(lambda (x y) (
(print (real? x))
(print (real? y))
(abs (- x y))
)
浏览 4提问于2022-04-08得票数 0
回答已采纳
3回答
球拍是否有类似于guile的程序源功能，例如：
(定义(+ -1 x) (+1 x)
(程序源加一)->(引用(+ 1x))
我试图制作一个类似于初学学生的调试工具，在这个工具中，他们可以看到对某个特定函数的部分或完整的评估，同时在2 2htdp/范围内处理它的行为。所以我可以在这个例子中使用宏，除非在他们的程序中，我仍然希望这个定义看起来像往常一样，所以我不能让他们一开始引用它，然后再使用它，除非我重新定义.也许没问题，但我很想知道该怎么做才是最好的。
浏览 2提问于2011-06-12得票数 3
回答已采纳
有没有办法从一个求值公式中检索函数调用中没有指定的函数参数？
例如，考虑调用seq(1, 10)。如果我想得到第一个参数，我可以使用quote()，也可以简单地使用quote(seq(1,10))[[1]]。然而，只有当参数是在函数调用时定义的(而不是有一个默认值)，并且我需要知道它的确切位置时，这种方法才有效。
在本例中，有没有什么方法可以从seq(1, 10)中获取by参数，而不需要使用冗长的if语句列表来查看是否定义了该参数？
浏览 0提问于2013-06-10得票数 4
回答已采纳
我想首先回顾一下在基本包中使用na.rm的情况，但是总的想法是在任何包中找到任何参数。
套餐
packages = (.packages());
包中的功能
我不知道这有多可靠，因为它后来在formals上抛出了错误
# https://stackoverflow.com/questions/8696158/find-all-functions-including-private-in-a-package
functions.listFromPackage = function(pkg = "stats")
{
all = ls( getNamespac
浏览 14提问于2022-08-31得票数 2
回答已采纳
在此中，建议使用alist()作为创建包含空元素的列表的一种简单方法。这样做的一个用例是构造一个适合通过do.call()安排的对[的调用的列表。例如：
x <- matrix(1:6, ncol = 2)
do.call(`[`, alist(x, , 2)) ## extract column 2 of x
[1] 4 5 6
提示alist()应答的特定需要根据对象shortdim动态设置空参数。
如果一个人知道存在多少个维度，他就能做到
al <- alist( , , ) ## 3 arguments for a 2-d object
al[[1]] <- x
s
浏览 0提问于2013-07-20得票数 9
回答已采纳
1回答
我有一个包含日期和值的数据框： library(dplyr)
library(lubridate)
df<-tibble(DateTime=ymd(c("2018-01-01","2018-01-01","2018-01-02","2018-01-02","2018-01-03","2018-01-03")),
Value=c(5,10,12,3,9,11),Rank=rep(0,6)) 我想对最后两行的值进行排序，每一行都与其余四个值行(之前日期的值)进行比
浏览 7提问于2018-12-26得票数 2
回答已采纳
4回答
是否可以在运行时更改R函数中形参的默认值？
假设，我们有一个函数
f <- function(x=1) {
...
}
我可以以某种方式将x的默认值从1更改为，比方说，2？
提前谢谢你，
斯文
浏览 0提问于2012-04-18得票数 13
回答已采纳
3回答
如何在R中重写函数的默认参数？
、、、、
例如：
paste (..., sep = " ", collapse = NULL)
我如何重写这个函数，以确保每个调用在默认情况下都有sep = ""？
也就是说，如何更改我没有编写的函数的参数的默认值？
浏览 1提问于2013-12-04得票数 1
回答已采纳
是否有一种不用“<-”赋值操作符而使用lapply/map (或sapply)、但重写下面的计数器for-循环的方法？
我有一个数据帧(list_of_dfs)列表，需要从中确定整个数据帧列表中包含的行总数。下面的代码工作得很好，但是我想知道我是否可以不使用for-循环而不使用范围赋值操作符“<--”来计算总行数。
计数器对-循环：
count <- 0
for(df in list_of_dfs){
count <- count + nrow(df)
}
下面的purrr::map函数完成了这个任务，但是我想避免使用"<<-“操作符。普罗：
浏览 0提问于2019-08-05得票数 1
1回答
我需要用很多不同的参数构建很多函数，尽管它们在其他方面共享了大量的代码和结构。为了避免重复，我想我会很聪明，为自己建立一个函数工厂(也就是闭包)。
--我不知道如何在函数工厂中传递函数参数。
我的用例是一堆S3构造函数，它们都共享相同的验证机制。所以我会用这个例子来解释我的问题。
比方说，我有一个ClassA和ClassB，它们在各自的构造函数中都需要自己的参数：
ClassA <- function(A_arg1, A_arg2) {
# some class-SPECIFIC construction magic happens, say
out <- list(A_a
浏览 1提问于2017-03-09得票数 3
回答已采纳
1回答
我需要捕获函数调用的预先指定的参数。这对于未指定的rlang::list2(...)来说似乎很容易，但对于指定的那些(函数的表单中定义的“指定”的意思)来说则更难。
我已经尝试过base::match.call和的功能，但还没有成功。
library(rlang)
capture_dots <- function(..., arg1) {
list2(...)
}
capture_dots("abc", arg1 = 1, arg2 = 2)
#> [[1]]
#> [1] "abc"
#>
#> $arg2
#>
浏览 0提问于2018-10-01得票数 0
回答已采纳
我认为下面的代码为这个问题提供了动机：
add <- function(x, y = 1) x + y
subtract <- function(x, z = 1) x - z
both <- function(x, ...) list(add(x, ...), subtract(x, ...))
both(1)
# OK
both(1, z = 2)
# Error in add(x, ...) : unused argument (z = 2)
# a solution from a previous question I asked
add <- funct
浏览 1提问于2013-10-31得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
