Как включить завершение имени функции?
Вопрос
В гольфу человек пытается завершить головоломку в максимально возможных количествах персонажей, обычно используя только базовый язык. Один обманывать Для гольфа в R следует использовать частичное завершение, например, например, rle(...)$length
можно сократить до rle(...)$l
. Анкет Как можно включить имени функции в R в R, предпочтительно в как можно меньше символов?
Решение
`?` <- function(object){
object <- deparse(substitute(object))
splt <- strsplit(object,"(",fixed=TRUE)[[1]]
object <- splt[1]
if(length(splt)>1)
func <- paste("(",splt[2],collapse="")
else
func <- ""
envs <- sapply(search(),as.environment)
objs <- do.call("c",lapply(envs,function(x) ls(envir=x,all.names=TRUE)))
matches <- objs[grep(object,objs)]
objectMatch <- matches[which.min(nchar(matches))][1]
res <- eval(parse(text=paste(objectMatch,func,collapse="")), envir = parent.frame())
res
}
Это перегружает оператора справки, чтобы обеспечить самый короткий объект, соответствующий регулярному выражению. Например:
> ?as.ch
function (x, ...) .Primitive("as.character")
> a<-1
> ?as.ch(a)
[1] "1"
Другие советы
Вдохновленный @ian, вот гольф -версия ответа @Ian. Концепция похожа, но используйте какой-нибудь хак R-ish (т.е. манипуляция на дереве вызовов)
`?`<-function(o)with(x<-as.list(substitute(o)),do.call(apropos(paste("^",deparse(x[[1]]),sep=""))[1],x[-1]))
пытаться:
> ?me(1:5)
[1] 3
> a<-1;?as.ch(a)
[1] "1"
>
Для гольфа, R
нужен ярлык function
.
Не связан с StackOverflow