代码之家 › 专栏 › 技术社区 › Andre Elrico

将所有有趣的参数/省略号折叠成字符串

functional-programming r

Andre Elrico · 技术社区 · 6 年前

我的职责是什么 reg_sort

所以这个电话:

reg_sort(-"\\w","\\w$","\\d+")

返回: 期望结果 )

"-\"\\w\",\"\\w$\",\"\\d+\""

我的功能:(评论是我失败的尝试)

reg_sort <- function(...) {

    #reg_list <- toString(x=...)
    #reg_list <- substitute(...)
    #reg_list <- deparse(...)
    #reg_list <- deparse(substitute(...))
    #reg_list <- quote(...)
    #reg_list <- as.name(substitute(...))

    return(reg_list)
    }

离得很近:(这样的事情对我已经有用了。如果你有其他选择可以分享我很高兴看到)

reg_sort <- function(...) {
    reg_list <- toString(match.call()) %>% sub(".*?,","",.) %>% gsub("\\\\","\\",.,fixed=T) %>% trimws

    return(reg_list)
    }
reg_sort(-"\\w","\\w$","\\d+")
#[1] "-\"\\w\", \\w$, \\d+"

2 回复 | 直到 6 年前

olooney 6 年前

将省略号参数作为单个逗号连接字符串返回。

reg_sort <- function(...) {
    ellipsis <- sapply(as.list(substitute(list(...)))[-1], deparse, simplify="array")
    return(paste0(ellipsis, collapse=','))
}

例子:

> reg_sort( -"\\w", "\\w$", "\\d+")
[1] "-\"\\\\w\",\"\\\\w$\",\"\\\\d+\""

请注意,所需输出中的转义不正确-还需要转义反斜杠文本。我们可以使用 cat() 要查看不带附加r转义层的基础字符串,请执行以下操作:

> cat(reg_sort( -"\\w", "\\w$", "\\d+"))
-"\\w","\\w$","\\d+"

我们可以看到这是原始参数,包括减号。空白是无法挽回的。

Rui Barradas 6 年前

如果你能负担得起在双引号之间传递减号,那么下面的操作就可以了。

reg_sort <- function(...){
  f <- function(x, y) paste(x, y, sep = "\",\"")
  Reduce(f, list(...))
}

reg_sort("\\w","\\w$","\\d+")
#[1] "\\w\",\"\\w$\",\"\\d+"

reg_sort("-","\\w","\\w$","\\d+")
#[1] "-\",\"\\w\",\"\\w$\",\"\\d+"]

推荐文章

Marc B. · 使用ggplot2创建条形图时“缺少值”

1 年前

deschen · tidyverse与外部向量发生突变,该外部向量的元素是数据帧中的列值

1 年前

Laura · 在Shiny中使用可排序的包拖放名称,这些名称将成为图表

1 年前

Mallikarjun M · 如何使用随机森林进行时间序列预测?

1 年前

ly li · 模型摘要:当表格形状改变时,拟合优度消失

1 年前

C.Robin · 将marginaffects::predictions()的结果连接回main df?

1 年前

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

RoyBatty · 统计每个字符在整个数据集中出现的次数

2 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前