[技巧]我的灭霸函数

突然爆发，写了好多函数，但是当对象也多，函数也多的时候，还是慢。我那么懒，我会一个个打吗？不会！想办法！

1.不限数量的输入x

之前写过一个dumd，作用是数据框去重复.

dumd <- function(x){
  colname <- vector("character")
  count <- vector("integer")
  for(i in 1:ncol(x)){
    colname[i] = colnames(x)[[i]]
    count[i]=nrow(x[!duplicated(x[,i]),])
  }

但我想实现两个三个数据框同时去重复，返回列表给我就行。
思路很简单，弄一个循环就可以啦，可是做起来就发现没那么简单，当你用到变量名的时候，往往发现带着双引号！没法用。于是豆豆帮我查到了一个至关重要的函数叫noquote！就这么愉快解决了。

multidumd <- function(...){
  input <- list(...)
  output <- list()
  for (i in 1:length(input)){
    output[[i]] <- dumd(noquote((input)[[i]]))
  }
  output
}

突然想起，R数据科学里讲过换函数的操作,就是“…”，也就是说不光dumd这个函数，其他函数也可以走起啦！

2.自定义函数

thanos <- function(...,fun){
  input <- list(...)
  output <- list()
  for (i in 1:length(input)){
    output[[i]] <- fun(noquote((input)[[i]]))
  }
  output
}

所以任意数量的输入，加上指定函数，这个技巧很6了！当然这个fun需要只有一个输入，df或者x。
报错什么的先不管，就这样先用起来，开心～～～取个名字叫灭霸。