gpt4 book ai didi

r - 检查 tidyselect 是否为 NULL,如果是,则设置默认的 tidyselect 方法

转载 作者:行者123 更新时间:2023-12-02 18:41:04 29 4
gpt4 key购买 nike

如果给出 NULL,我正在努力设置默认选择方法。例如,假设我想实现一个函数,对某些 tidyselect 方法、符号或字符串的所有值进行平方,如果没有给出,则默认情况下它对所有数值进行平方。这是我正在尝试处理的案例的代表:

#Load package
suppressMessages(library(dplyr))
#Define function
square_columns <- function(data, target = NULL){
if (is.null(target)){
target <- rlang::expr(where(is.numeric))
}
data %>%
dplyr::mutate(
dplyr::across(!!target, magrittr::raise_to_power, 2)
)
}
# Examples
# Works
iris %>%
square_columns(target = 'Sepal.Length') %>%
invisible()
# Works
iris %>%
square_columns(target = c('Sepal.Length', 'Sepal.Width')) %>%
invisible()
# Works
iris %>%
square_columns() %>%
invisible()
# Fails
iris %>%
square_columns(target = contains('Sepal'))
#> Error: `contains()` must be used within a *selecting* function.
#> i See <https://tidyselect.r-lib.org/reference/faq-selection-context.html>.
# Fails
iris %>%
square_columns(target = Sepal.Length)
#> Error in square_columns(., target = Sepal.Length): object 'Sepal.Length' not found

reprex package 于 2021 年 6 月 16 日创建(v2.0.0)

最佳答案

target 实际被评估时,您需要更加小心。这应该有效

square_columns <- function(data, target = NULL){
target <- enquo(target)
if (rlang::quo_is_null(target)){
target <- rlang::expr(where(is.numeric))
}
data %>%
dplyr::mutate(
dplyr::across(!!target, magrittr::raise_to_power, 2)
)
}

当您运行 is.null(target) 时,您正在评估该参数,并且无法评估在数据上下文之外使用 contains() 的内容。框架。因此,最好从参数显式创建 quosure,并使用更安全的 rlang::quo_is_null 来检查 NULL 值。

关于r - 检查 tidyselect 是否为 NULL,如果是,则设置默认的 tidyselect 方法,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/68007842/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com