在eval_tidy中访问错误变量的函数
是geterrmessage()。
geterrmessage()是一个用于获取最近一次错误消息的函数。它可以在eval_tidy中使用，以便在出现错误时获取错误消息并进行处理。
该函数的主要参数是无，它返回一个字符向量，其中包含最近一次错误消息的详细描述。
使用geterrmessage()函数可以帮助开发人员更好地调试和处理错误，以提高代码的健壮性和可靠性。
在云计算领域中，eval_tidy是一种用于动态执行R语言代码的函数。它可以帮助开发人员在云环境中灵活地执行和管理代码，提高开发效率和资源利用率。
推荐的腾讯云相关产品：腾讯云函数（云原生Serverless计算服务）。腾讯云函数是一种事件驱动的计算服务，可以帮助开发人员在云端运行代码，无需关心服务器和基础设施的管理。通过腾讯云函数，可以轻松实现eval_tidy中访问错误变量的函数geterrmessage()的功能。
腾讯云函数产品介绍链接地址：https://cloud.tencent.com/product/scf
相关·内容
1回答
使用dplyr 0.7.4的新quosure语法，我认为我应该能够执行类似!!quo(1)的操作(期望使用1)，但它返回错误
library(dplyr)
!!quo(1)
Error in !quo(1) : invalid argument type
为什么这个不起作用？(请注意，在base R中，可以执行eval(quote(1))。什么是dplyr模拟？)
..。!!是否仅在dplyr函数中定义？
浏览 9提问于2018-03-02得票数 1
回答已采纳
1回答
调用.Call的补丁函数
、、、
我的目标是修补rlang::eval_tidy函数。在它的中，它只调用.Call
eval_tidy <- function(expr, data = NULL, env = caller_env()) {
.Call(rlang_eval_tidy, expr, data, env)
}
在我的例子中，对于一种类型的值，它的行为应该是不同的。因此，我将其更改为可以添加自定义行为的多方法：
package <- getNamespace('rlang')
unlockBinding('eval_tidy', package)
package$ev
浏览 2提问于2019-11-24得票数 0
1回答
我有以下函数，它接受一个未引号的输入，并返回输入对象的字符向量。
my_function <- function(...) {
v_chr <- purrr::map_chr(rlang::enexprs(...), rlang::as_name)
v_chr
}
my_function(apple, orange)
"apple" "orange"
我正试图围绕它构建一个包装器，它需要一个字符向量输入。这不管用。
my_wrapper <- function(v_chr) {
x <- rlang::syms(v_
浏览 1提问于2019-11-26得票数 0
回答已采纳
2回答
对于像R中的lm()这样的函数，您将"data“参数传递给函数，通常是一个数据帧，然后R通过名称知道所有列，而不是引用它们。所以区别在于x=column而不是在时尚的x=df$column中引用。那么如何在我自己用户定义函数中使用相同的方法呢？
一个简单的例子：
library(tidyverse)
df <- tibble(x=1:100,y=x*(1+rnorm(n=100)))
test_corr <- function(x,y) {
cor(x,y) %>% return()
}
# Right now I would do this
test_co
浏览 15提问于2020-02-10得票数 0
回答已采纳
3回答
我想要实现的
所以我想在函数列表中得到我的函数的名称。
下面是一个示例：
foo = list(foo1 = sum, foo2 = mean)
我想从foo中提取的是：
list("sum", "mean")
我希望它是一种功能，意思是：
> foo = list(foo1 = sum, foo2 = mean)
> super_function(foo)
list("sum", "mean")
我检查过的
应用名称：
> sapply(foo , names)
$`foo1`
NULL
$foo2
NULL
浏览 1提问于2018-08-01得票数 6
回答已采纳
1回答
我想在for循环中使用变量名，但失败了。我认为问题在于R.
我在这个网站上尝试了这个方法：。
library(pROC)
library(tidyverse)
roc1 <- aSAH %>% roc(outcome, s100b)
plot(roc1)
a = 'roc1'
# method from Stack overflow
plot(!!rlang::sym(a))
# Some other attempts
plot(sym(a))
plot(!sym(a))
plot(!!sym(a))
任何帮助都将不胜感激！
浏览 2提问于2021-05-07得票数 1
回答已采纳
1回答
library(rlang)
myquo <- quo((Temp - 32) / 1.8)
eval_tidy(myquo, data = as_data_mask(datasets::airquality)) # works
e <- as_env(datasets::airquality, parent = global_env())
eval_tidy(myquo, data = as_data_mask(list(), parent = e)) # error
我期望在e中找到Temp。我做错了什么？
PS:我有R版本3.5.0，并在最新的CRAN和{rlang}的G
浏览 0提问于2018-08-14得票数 10
保存quosure以便在另一个会话上运行的最佳方法是什么？ 考虑以下内容，它使用{rlang}的quosure概念引用表达式x+2，并捕获其全局环境，并将其求值为4。 但是，如果您保存该查询，然后启动一个新会话，则eval_tidy将不再起作用，因为在新环境中可能未定义x。 我的用例是保存这些表达式并在单独的会话中运行它们。保存quosure以便在另一个会话上运行的最佳方法是什么？也是拯救环境的唯一方法吗？这并不理想，因为环境中可能包含非常大的对象，所以最好有一个轻量级的解决方案。 library(rlang)
x = 2
quo_x_plus_2 = quo(x + 2)
save
浏览 17提问于2019-12-16得票数 0
回答已采纳
1回答
问题
在将自定义函数的enquo参数传递给dplyr链之前，我希望确保它的类型是正确的。
我试过什么
我能够将参数组合到一个dataframe中，然后测试每个变量的类型。但我想知道是否有一种解决方案可以在将每种类型放入dataframe之前对其进行测试
我也试过这样做，但没有结果：
my_function_if <- function(data, numeric_arg, logic_arg, chr_arg){
if(is.numeric(data$numeric_arg)){
enq_numeric <- enquo(numeric_arg)
} else {
浏览 0提问于2018-07-10得票数 4
回答已采纳
1回答
所以我无论如何都不能理解这里发生了什么。这本应是对可能的边缘情况的一次小探索，但它最终揭示了我对R/整洁评估的理解有多少。 我想知道为什么，当一个函数被编码来访问它没有在参数中定义的变量时，eval_tidy似乎不能屏蔽它所使用的变量。 考虑以下情况，其中f访问名为sup的变量，该变量未作为参数传入 library(rlang) # I'm using rlang 0.3.0
# Define `sup` globally
sup <- "yes"
f <- function() {
# Access whatever the `sup` vari
浏览 20提问于2019-01-08得票数 1
回答已采纳
下面的代码生成了一个图： ggplot(data = diamonds) +
geom_bar(mapping = aes(x = cut, y = after_stat(prop), group = 1)) 标识符prop没有绑定到任何东西，这在R中是可能的。它的名称在以后使用，我认为它比使用带引号的字符串更方便。 prop定义计算统计数据(比例)，因此y = ...不是引用日期的列名，而是引用统计数据。 after_stat延迟prop的求值，否则ggplot将搜索名为prop的列。 毫不奇怪，?prop没有帮助： > ?prop
No documentation for ‘
浏览 39提问于2021-08-31得票数 1
我正在创建一个R闪亮的应用程序，主要使用checkboxGroupInput，对于我选中的每个复选框名称，相应的表应该显示在主UI面板中。我已经将每个复选框选项链接到checkboxGroupInput的“选择”参数中的相应表(在我以前的脚本中)。我使用eventReactive创建一个工作按钮，使用renderTable生成适当的表。但是，当我单击按钮时，主面板中显示的是表中每个单元格的列表，而不是表本身。这个值列表看起来有点像这样：
list(CUI = "C05372341", LAT = "ENG", TS = "P", LUI = &#
浏览 0提问于2019-07-23得票数 0
回答已采纳
经过大量的尝试和错误，并与以前的答案，如，我认为我已经得到了我自己需要做的大部分。但是，在我把我的“解决方案”投入生产之前，我渴望理解我是在做一些错误的假设，还是愚蠢地解决了这个问题。
考虑以下数据：
library(dplyr)
library(purrr)
library(tidyselect)
set.seed(1111)
dat1 <- data.frame(Region = rep(c("r1","r2"), each = 100),
State = rep(c("NY","MA&#
浏览 1提问于2020-05-29得票数 4
回答已采纳
假设我有以下几点
library(data.table)
cars1 = setDT(copy(cars))
cars2 = setDT(copy(cars))
car_list = list(cars1, cars2)
class(car_list) <- "dd"
`[.dd` <- function(x,...) {
code = rlang::enquos(...)
cars1 = x[[1]]
rlang::eval_tidy(quo(cars1[!!!code]))
}
car_list[,.N, by = speed]
因此，我希望在
浏览 0提问于2019-07-20得票数 5
回答已采纳
我一直在为下面的代码而挣扎，在尝试创建模型时，我只得到了以下错误代码：
eval_tidy中的错误(点，数据=掩码)：找不到对象‘年龄’。
我使用的数据来自socviz包：
GeneralSocialSurvey2016 <- gss_sm %>%
mutate(Education = as.factor(case_when(degree == "Graduate" ~ "1",
degree == "Bachelor" ~ "1"
浏览 3提问于2022-02-28得票数 2
我的问题的数据集： set.seed(1)
dfr2 <- tibble(x1 = factor(sample(letters[1:3], 50, replace = T), levels=letters[1:3]),
x2 = factor(sample(letters[1:2], 50, replace = T), levels=letters[1:2]),
x3 = factor(sample(letters[1:3], 50, replace = T), levels=letters[1:3]),
g
浏览 50提问于2020-07-06得票数 1
回答已采纳
我想使用rlang::eval_tidy()来计算一个在mtcars命名空间中接受...的函数。
下面是我想要计算的一个函数示例，它是从assertr借来的。
has_all_names <- function(...){
check_this <- list(...)
parent <- parent.frame()
all(vapply(check_this,
function(x) exists(x, where = parent, inherits = FALSE),
logica
浏览 1提问于2018-03-06得票数 2
回答已采纳
我制作了一个函数，它以另一个函数作为参数，参数函数将原始函数提供的某个对象(在示例中是向量)作为参数。以正确的方式进行函数调用一直具有挑战性。下面是我在阅读之后使用的三种方法。只有第三种方法有效，
我想知道这是否是评估函数中函数的最佳方法。
library(dplyr);library(rlang)
#Function that will be passed as an argument
EvaluateThis1 <- quo(mean(vector))
EvaluateThis2 <- ~mean(vector)
EvaluateThis3 <- quo(mean)
#
浏览 7提问于2017-09-13得票数 0
当使用命名向量指定列时，dplyr 0.7.5中的select()返回与dplyr 0.7.4不同的结果。
library(dplyr)
df <- data.frame(a = 1:5, b = 6:10, c = 11:15)
print(df)
#> a b c
#> 1 1 6 11
#> 2 2 7 12
#> 3 3 8 13
#> 4 4 9 14
#> 5 5 10 15
# a na
浏览 0提问于2018-06-08得票数 13
1回答
R:函数包多项式回归问题
、、、
在进行多项式回归时，我尝试将不同程度的多项式拟合到一个列表中，因此我将glm封装为一个函数：
library(MASS)
myglm <- function(dop) {
# dop: degree of polynomial
glm(nox ~ poly(dis, degree = dop), data = Boston)
}
但是，我想可能存在一些与惰性评估相关的问题。模型的程度是参数dop，而不是一个特定的数字。
r$> myglm(2)
Call: glm(formula = nox ~ poly(dis, degree = dop), data =
浏览 2提问于2020-11-18得票数 0
回答已采纳
2回答
我正在尝试开发一个函数来计算一些调查数据的均值、标准误差和置信区间。我需要在多个不同的变量上重复这样做，使用一堆不同的过滤器语句。
数据
df <- data.frame(address_id = rep(c(1,1,1,2,2,2,3,3,3,4,4,4),5),
person_id = rep(c(1,2,3),20),
sex = as.factor(rep(c("male","female"),30)),
response_var
浏览 25提问于2022-10-31得票数 1
回答已采纳
当我尝试这段代码时，我会得到一个错误。我想从多个页面中抓取数据。但是，当我尝试下面的脚本时，我会看到一个错误，即：
eval_tidy中的错误(xs [j]，掩码)：找不到对象的标题
library(tidyverse)
library(rvest)
# function to scrape all elements also missing elements
scrape_css <- function(css, group, html_page) {
txt <- html_page %>%
html_nodes(group) %>%
la
浏览 1提问于2020-10-14得票数 1
我想了解为什么在使用<-评估rlang::eval_tidy分配操作时会发生以下情况。
让我们使用rlang::expr创建一个表达式，为变量x分配值1。
x_expr <- rlang::expr(x <- 1)
我们还创建了一个环境，我们希望在其中评估表达式。
new_env <- new.env(parent = parent.env(environment()))
我的意图是将1分配给x is new_env。
现在，我们使用base::eval来计算这个表达式：
eval(x_expr, envir = new_env)
get('x', en
浏览 2提问于2021-06-07得票数 1
回答已采纳
假设我希望创建一个要在dplyr::mutate()中使用的函数，并在其中输入一个变量名，在该函数中，它将提取给定变量名中的特定模式，并从其中创建一个新的变量名，如下所示：
library(rlang)
library(dplyr)
library(stringr)
library(glue)
myfun <- function(var) {
y <- str_remove(ensym(var), "^.*\\.")
other_var <- glue("Petal.{y}")
if_else(var > 6 | ot
浏览 5提问于2022-06-28得票数 1
回答已采纳
我试着用nloptr库来计算非线性优化，只从用户输入中制作一个简单的非线性规划应用。
如果我试图从输入中添加目标函数和约束的梯度，就会得到一个错误: nloptr: try ()中的错误，它只能应用于“数值”，而不是“列表”。谢谢你的帮助。
library(shiny)
library(shinythemes)
library(nloptr)
ui <- fluidPage(theme = shinytheme("united"),
navbarPage(" Optimization",
浏览 13提问于2022-04-02得票数 0
回答已采纳
3回答
我正在尝试编写一个包含两个操作的函数，第一个操作包括对数据帧进行子集。
假设我有这两个数据帧。
ID Var1
1 5 3
2 6 1
ID Var2
1 5 9
2 6 2
我的函数是这样的
mu_fuc = function(df, condition) {
workingdf = subset(df, condition < 3)
###pass working df to the other action
}
我知道，对于第一个操作，我可以使用条件切片作为
浏览 5提问于2020-12-25得票数 2
1回答
我明白这个标题可能没有任何意义。我到处找都找不到答案。我要做的是创建一个函数，它将接受另一个函数的参数名，一个向量，然后继续调用该函数，其参数值等于向量中的每一项。 为了简单起见，我不是在处理下面的向量，而只是处理一个整数。 tuner <- function(param, a, ...) {
myfunction(param = a, ...)
} 这样代码就能有效地运行 myfunction(param = a) 我不能让它工作！代码实际运行，但结果调用完全忽略了我输入的参数，只是运行 myfunction() 而不是。有什么解决方案吗？
浏览 9提问于2020-10-19得票数 0
回答已采纳
1回答
我希望我的应用程序用户能够安全地操作我的闪亮应用程序中的数据集--将代码传递给数据%>%变异(输入$textInput1 1)，然后更新包含被操纵数据v$data的反应性值。
对于如何使用单个预先命名的输入并对其进行解析，有一些答案，但我无法推断如何为多个文本输入定义此输入。例如“输入$textinput2 1”，“输入$textinput2 2”。
使用激活的输入字段按下“重新编码”按钮会导致错误：
Warning: Error in : Problem with `mutate()` input `..1`. x <text>:1:1: unexpected '
浏览 2提问于2021-02-02得票数 0
回答已采纳
1回答
如何处理函数的参数...中的缺失值？
我有一个泛型函数foo，它是我希望与其他函数(本例中为bar)共享的样板代码。我也希望能够在缺少参数的情况下运行bar()。
问题是，当我使用list(...)时，缺少值会抛出一个错误：
foo = function(...){
list(...)
}
bar = function(name){
foo(name=name)
}
bar("a")
#> $name
#> [1] "a"
bar()
#> Error in foo(name = name): argument "name&
浏览 1提问于2021-01-12得票数 0
我没有一个紧迫的用例，但我想了解eval和data.table如何协同工作。
我有可供选择的解决方案，所以我最感兴趣的是为什么，因为我希望能够更好地理解整洁的实用程序，这将帮助我处理各种各样的用例。
如何使data.table +整洁的与组一起工作
在下面的示例中，我使用了rlang的开发版本。
更新
我根据Stefan F的答案和我的进一步探索更新了我原来的问题:我不再认为插入的~是问题的重要部分，因为它也存在于dplyr代码中，但是我有一个特定的代码: data.table + group +group，我不明白为什么不能工作。
# setup ----------------------
浏览 0提问于2018-08-11得票数 5
回答已采纳
我有一些数据(虹膜数据集)，我还有一个叫做decisionplot的绘图函数。我的问题是如何将decisionplot函数(它输出ggplot图)应用于数据中的所有变量组合。也就是说，在我们拥有的虹膜数据集中；
"Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width" "Species"
我想将函数decisionplot应用于以下组合：
"Sepal.Length" "Sepal.Width"
"Sepal.Le
浏览 1提问于2020-02-09得票数 0
回答已采纳
3回答
R数据中基于静态函数的逻辑函数
、、、、
我有一个非常大的Excel电子表格，有许多对观察的“检查”(300+列)。检查由布尔运算符(大于等于)和一些求和/减法组成：
df <-data.frame(checkID = c(1,2,3,4), checkpart1 = c(50, 70, 111, 320),
checkpart2 = c("+", "==", "*", ">"), checkpart3 = c(18, 17, 6, 3), checkpart4 = c("==", NA, "-
浏览 0提问于2021-07-04得票数 3
回答已采纳
3回答
我正在编写一个函数，它使用plot_ly作为压痕图。参数标签内的倾斜(~)与未引号运算符发生冲突！这个问题有解决办法吗？
pieplotr <- function (df, Property){
Property_Name <- enquo(Property)
Pie <- plot_ly(df,
labels = ~!!Property_Name,
type = "pie")
return(Pie)
}
Toy_dataframe <- data.frame(
浏览 4提问于2019-11-07得票数 3
我正在尝试编写一个自定义函数来使用rlang + ez运行一个单向的主题内方差分析。
我期望的输出的一个例子：
# setup
set.seed(123)
library(WRS2)
library(ez)
library(tidyverse)
# getting data in format that `ez` expects
df <- WRS2::WineTasting %>%
dplyr::mutate_if(
.tbl = .,
.predicate = purrr::is_bare_character,
.funs = as.factor
浏览 2提问于2019-08-13得票数 0
回答已采纳
我有一种有效的方法和一种不起作用的方法，我不知道后者有什么问题。这里： library(tidyverse)
get_these <- c(`Ideal E` = "cut == 'Ideal' & color == 'E'",
`Good J` = "cut == 'Good' & color == 'J'")
# This works:
get_these %>%
map(rlang::parse_expr) %>%
浏览 17提问于2019-10-17得票数 2
回答已采纳
我很难理解为什么下面的代码返回一个错误：
d <- tibble(a = 1:10, x = 1:10, y = 1:10)
f <- function(.data, expr) {
plot_ly(.data %>% filter({{ expr }}), x = ~x, y = ~y) %>% add_markers()
}
f(d, a <= 5)
# "Error in as.list.environment(x, all.names = TRUE) : object 'a' not found"
但是这和预期的
浏览 7提问于2021-02-22得票数 0
回答已采纳
1回答
我很好奇为什么purrr::map_*函数族，尽管是tidyverse的一部分，却不支持准引号，在计算映射函数之前，拼接取消其dots的引号？
library(tidyverse)
library(rlang)
set.seed(1)
dots <- quos(digits = 2L)
# this obviously won't work
purrr::map_chr(rnorm(5L),
~ format(.x, !!!dots))
#> Error in !dots: invalid argument type
# I'm
浏览 0提问于2019-02-01得票数 4
1回答
我试图使用字符串向量作为janitor函数tabyl中的列输入
我知道我可以将字符串转换为符号，然后在dplyr函数(如big bang )中使用group_by。
stg <- syms(c("gear", "carb"))
mtcars %>% group_by(!!!stg) %>% summarise(count = n())
但是，当我试图将同样的逻辑应用于janitor函数tabyl时，我会得到以下错误：
mtcars %>%
tabyl(!!!stg) %>%
adorn_pct_formatting(rou
浏览 1提问于2019-11-08得票数 1
回答已采纳
函数
“持之以恒”有时也称为“保留”。它被定义为在给定的期限/期间内的单位数(ID's)，这些单位在以后的期限/期间中也可以找到。所以，如果我有10个客户在第1期，而其中3个客户在第2期返回，我的坚持率是30%。
我编写了一个函数，它可以：
计算每个时期的ID队列的持久率，如果是calculate = TRUE。
在原始数据上创建一个指示符变量，标识ID是否持久化(1)，如果是calculate = FALSE，则为(0)。
此外，如果overall = TRUE时calculate = TRUE，它将包括所有条款的持久化率。
的参数
以下是对每一种论点的简要描述：
df (必需)：这
浏览 0提问于2018-07-13得票数 0
回答已采纳
我正在尝试编写一个自定义函数，其中我想使用cor.test函数，但我在取消引用所需的参数以创建一个工作公式时遇到了困难。
我现在看到的是不起作用的-
library(rlang)
# custom function
tryfn <- function(data, x, y) {
stats::cor.test(
formula = rlang::new_formula(NULL, {{ x }} + {{ y }}),
data = data,
method = "pearson"
)
}
# using the function
tr
浏览 0提问于2019-07-25得票数 3
回答已采纳
1回答
假设我想从涉及另一个表的列的表达式中创建一个新表。这很简单：
library(rlang)
library(purrr)
from_exprs = function(tb, ...) {
quos(...) %>%
map_dfc(~ eval_tidy(., tb))
}
示例：
> tb = data.frame(year = 2001:2005, month = 1, names = letters[1:5])
> tb
year month names
1 2001 1 a
2 2002 1 b
3 2003
浏览 0提问于2018-05-02得票数 3
这个问题与发布在上的问题有关。
简而言之，我想知道为什么base::substitute 和 rlang::enexpr 在下面有不同的行为。
#works
f1 <- function(x,y){
do.call("methods", list(substitute(x::y)))
}
f1(broom,tidy)
#does not work
#Error: `arg` must be a symbol
f2 <- function(x,y){
do.call('methods',list(rlang::enexpr(x::y)))
}
浏览 1提问于2020-01-23得票数 2
回答已采纳
2回答
我刚开始用R来上心理课，所以请对我手下留情。我在youtube上看了一堆For loops的视频，但都没有回答我的问题。我有4个数据帧(A，B，C，D)，每个有25列。我想将每个数据框中的第n列组合在一起，并将它们保存为一个对象，如下所示：
Q1 <- cbind(A[1], B[1], C[1], D[1])
Q2 <- cbind(A[2], B[2], C[2], D[2])
我怎样才能为所有的25个人设置一个循环来做这件事，这样我就不必手动做了？
提前感谢
我的每个数据框看起来像这样(具有反映数据框字母的列标题)(例如，B具有QB1、QB2等
QA1 QA2 QA3
浏览 0提问于2019-07-20得票数 1
1回答
我使用这个代码来执行多个t.test，保持自变量不变！
data(mtcars)
library(dplyr)
vars_to_test <- c("disp","hp","drat","wt","qsec")
iv <- "vs"
mtcars %>%
summarise_each_(
funs_(
sprintf("stats::t.test(.[%s == 0], .[%s == 1])$p.value",iv,iv)
),
浏览 5提问于2017-11-18得票数 1
回答已采纳
2回答
我有一个数据集，我喜欢根据这些值的概率分布来推断其中一个值。让我们先做一些可重现的例子 library(tidyverse)
library(janitor)
dummy1 <- runif(5000, 0, 1)
dummy11 <- case_when(
dummy1 < 0.776 ~ 1,
dummy1 < 0.776 + 0.124 ~ 2,
TRUE ~ 5)
df1 <- tibble(q1 = dummy11) 下面是输出： df1 %>% tabyl(q1)
q1 n percent
1 3888
浏览 23提问于2019-10-17得票数 4
回答已采纳
1回答
带输入的非线性规划R-亮问题
、、、、
我有一个错误: STRING_ELT ()只能应用于“字符向量”，而不是“NULL”。
如果我尝试将目标函数和约束添加到eval_f、eval_g_eq和eval_g_ineq函数的原始代码中，它将计算所有内容，但问题是从输入中计算。我不确定我是否对这些功能有错误的输入，或者有什么问题。
library(shiny)
library(shinythemes)
library(nloptr)
eval_f <<- function(x)
{
return (obj)
}
eval_g_eq <<- function(x)
{
return(eq)
}
eva
浏览 6提问于2022-03-31得票数 0
回答已采纳
2回答
我想根据给定的字符向量添加一个新列。例如，在下面的示例中，我希望添加在d中定义的列expr
library(magrittr)
data <- tibble::tibble(
a = c(1, 2),
b = c(3, 4)
)
expr <- "d = a + b"
如下所示：
data %>%
dplyr::mutate(d = a + b)
# # A tibble: 2 x 3
# a b d
# <dbl> <dbl> <dbl>
# 1 1 3
浏览 14提问于2022-01-23得票数 4
回答已采纳
1回答
我在rlang和base之间意外地发现了不同的行为。正如这句话所证明的那样，显然存在着分歧。这是从0.4.1，但类似的语言仍然在0.4.2，现在指的是enquo。
就基函数而言，enexpr(arg)对应于基：：substitute(Arg)(尽管该函数还具有复杂的替换语义)。
有人可以使用substitute()所具有的rlang函数来匹配这种行为吗？
对于为什么enexpr()不能工作有一个很好的解释吗？我猜是因为它与S3方法调度有关。
我特别感兴趣的是如何使用rlang来做这件事，我已经可以实现我想使用的基本行为。
我的例子是无稽之谈，但它强调的是，我无法捕获
浏览 2提问于2019-12-06得票数 2
回答已采纳
当我使用while len(my_list) > 5: my_list.pop()截断列表中的条目时，没有出现错误。但是，当我使用my_list = my_list[:5]试图达到相同的目的时，在代码的早期部分，在切片发生之前，我会看到一个UnboundLocalError。
我将尽量只发布那些似乎相关的部分。首先，脚本所做的第一件事是从一个被腌制的文件中加载列表--如果失败，它将被分配一个默认值。除非我的理解很差，否则这个列表只是存在于脚本的全局命名空间中。
try: #either load hi-score list, or create a default list
浏览 8提问于2014-07-04得票数 0
回答已采纳
使用rlang包，我想知道sym()和parse_expr()之间有什么区别。例如，请考虑以下表达式：
ex1 = sym('a')
ex2 = parse_expr('a')
他们都回来了
a
identical(ex1, ex2)
[1] TRUE
假设我现在需要一个条件：
ex3 = quo(!!sym('a'))
ex4 = quo(!!parse_expr('a'))
在这两种情况下，结果是：
<quosure>
expr: ^a
env: global
identical(ex3, ex4)
[1]
浏览 1提问于2018-05-03得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
