- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
所以我正在尝试制作一个包(我没有在下面包含我的 roxygen2 header ):
我有这个功能:
date_from_text <- function(df, x){
x <- rlang::enquo(x)
name <- rlang::quo_name(x)
df %>%
dplyr::mutate(!!name := lubridate::ymd_hms(!!x))
}
当日期时间列具有正确的类时,我将使用它来提取所有组件。
date_columns <- function(df, x){
x <- rlang::enquo(x)
df %>%
dplyr::mutate(year=lubridate::year(!!x),
ydag=lubridate::yday(!!x),
weekday=lubridate::wday(!!x, label=FALSE),
hour = lubridate::hour(!!x),
hour_min= hms::as.hms(lubridate::force_tz(!!x)),
week_num = lubridate::week(!!x),
month = lubridate::month(!!x),
date = lubridate::date(!!x))
}
我不想将 date_from_text
函数包含在 NAMESPACE
中,我想以某种方式将它包含在 date_columns
函数中。比如检查时间戳是否有正确的类,如果没有则更改类......然后创建所有日期时间组件。
我不知道如何在另一个函数中调用第一个函数。
测试数据:
df <- structure(list(time = c("2018-01-30 20:08:18", "2018-02-01 21:01:25",
"2018-01-31 23:25:12", "2018-01-28 23:45:34", "2018-01-31 12:00:55",
"2018-02-04 09:15:31", "2018-01-27 21:08:02", "2018-02-08 01:50:31",
"2018-02-01 03:15:43", "2018-02-04 01:04:52"), type = c("A",
"D", "B", "B", "B", "D", "C", "C", "C", "A")), .Names = c("time",
"type"), row.names = c(NA, -10L), class = c("tbl_df", "tbl",
"data.frame"))
更新:所以我现在将 date_from_text
包含在 date_columns
date_columns <- function(df, x){
x <- rlang::enquo(x)
out <- df %>%
date_from_text(!!x) %>%
dplyr::mutate(year=lubridate::year(!!x),
ydag=lubridate::yday(!!x),
weekday=lubridate::wday(!!x, label=FALSE),
hour = lubridate::hour(!!x),
hour_min= hms::as.hms(lubridate::force_tz(!!x)),
week_num = lubridate::week(!!x),
month = lubridate::month(!!x),
date = lubridate::date(!!x))
out
}
所以我不明白为什么我必须在 date_columns
中再次使用 !!x
?它已经包含在 date_from_text
中。我正在调用函数而不是创建它...
最佳答案
正如在评论和聊天中所讨论的那样,问题既不是关于包开发和命名空间,也不是关于管道。问题是如何使用 tidyeval在可能嵌套的包装函数中。
答案是用户传递给函数的表达式需要是 quoted and unquoted , 就像在 date_from_text()
中一样下面通过 enquo(x)
和 !!x
.
date_from_text <- function(df, x) {
x <- rlang::enquo(x) # quote via enquo()
name <- rlang::quo_name(x)
dplyr::mutate(df, !!name := lubridate::ymd_hms(!!x)) # unquote via !!
}
然后,可以将表达式以“交互”模式传递给此类函数,就像 dplyr 函数一样:
date_from_text(df, time)
select(df, time)
请记住,函数内的函数不采用表达式,而是带引号和不带引号的表达式,就像在 mutate()
中一样用 enquo(x)
打电话和 !!x
以上。
这意味着,在 date_from_text()
中下面,两个电话date_from_text()
和 mutate()
需要领取!!x
.
date_columns <- function(df, x) {
x <- rlang::enquo(x)
out <- date_from_text(df, !!x)
out <- dplyr::mutate(out, year = lubridate::year(!!x))
return(out)
}
除此之外,在包开发中,您可以使用所有函数,无论它们是exported。或不(就像我在 date_from_text()
中对 date_columns()
所做的那样)。导出的函数需要记录在案,安装后可以通过library(pkg)
使用或 pkg::fun()
, 而未导出的功能只能在通过 pkg:::fun()
安装后使用.
我修改了@David 的函数以专注于相关部分。
关于r - Tidyeval in own functions in own functions inside own functions with the pipe 管道,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55899506/
main.cpp #include "Primes.h" #include int main(){ std::string choose; int num1, num2; w
似乎函数 qwertyInches() 应该可以工作但是当我在 main() 中调用它时它给了我 [Error] called object 'qwertyInches' is not a funct
我无法理解 C++ 语法的工作原理。 #include using namespace std; class Accumulator{ private: int value; public:
在 类中声明 函数成员时,我们可以同时执行这两种操作; Function first; Function() second; 它们之间有什么区别? 最佳答案 Function 代表任意函数: void
“colonna”怎么可能是一个简单的字符串: $('td.' + colonna).css('background-color','#ffddaa'); 可以正确突出显示有趣单元格的背景,并且: $
我正在尝试将网页中的动态参数中继到函数中,然后函数将它们传递给函数内部的调用。比如下面这个简化的代码片段,现在这样,直接传入参数是没有问题的。但是,如何在不为每个可能的 colorbox 参数设置 s
C++ 中是否有一种模式允许您返回一个函数,它返回一个函数本身。例如 std::function func = ...; do { func = func(); } while (func);
我正在将 Windows 程序集移植到 Linux。我有一些代码要移植。我实际上是 linux 中 C 的新手。我知道 C 基础知识是一样的! typedef struct sReader {
我一直在寻找一个很好的解释,所以我很清楚。示例: this.onDeleteHandler(index)}/> 对比 对比 this.nameChangedhandler(event, perso
function(){}.__proto__ === Function.prototype 和 Function.prototype === function(){}.__proto__ 得到不同的结
https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/Function 据说 Propert
VBA 中的函数没有特殊类型。我很难理解如何在 Excel VBA 中将函数作为参数添加到函数中。 我想要完成的是这样的事情: function f(g as function, x as strin
所以我正在尝试制作一个包(我没有在下面包含我的 roxygen2 header ): 我有这个功能: date_from_text % dplyr::mutate(!!name := lubr
尝试从 std::function 派生一个类,对于初学者来说,继承构造函数。这是我的猜测: #include #include using namespace std; template cla
我正在尝试编写一个返回另一个函数的函数。我的目标是编写一个函数,它接受一个对象并返回另一个函数“search”。当我使用键调用搜索函数时,我想从第一个函数中给定的对象返回该键的值。 propertyO
我非常清楚函数式编程技术和命令式编程技术之间的区别。但是现在有一种普遍的趋势是谈论“函数式语言”,这确实让我感到困惑。 当然,像 Haskell 这样的一些语言比 C 等其他语言更欢迎函数式编程。但即
关闭。这个问题是opinion-based 。目前不接受答案。 想要改进这个问题吗?更新问题,以便 editing this post 可以用事实和引文来回答它。 . 已关闭 8 年前。 Improv
我在stackoverflow上查过很多类似的问题,比如call.call 1 , call.call 2 ,但我是新人,无法发表任何评论。我希望我能找到关于 JavaScript 解释器如何执行这些
向 Twilio 发送 SMS 时,Twilio 会向指定的 URL 发送多个请求,以通过 Webhook 提供该 SMS 传送的状态。我想让这个回调异步,所以我开发了一个 Cloud Functio
作为 IaC 的一部分,A 功能应用 ,让我们将其命名为 FuncAppX 是使用 Terraform 部署的,它有一个内置函数。 我需要使用 Terraform 在函数应用程序中访问相同函数的 Ur
我是一名优秀的程序员,十分优秀!