Quero encontrar um conjunto de funções e salvá-las, porque quero enviá-las para um servidor remoto em um arquivo Rdata e não quero instalar um novo pacote no servido

Embora eu esteja recebendo um erro ao usar a abordagem abaixo, abordagens mais fáceis / melhores são bem-vinda

MWE:

qui estão duas funções fictícia

abcd.fun.1    <- function() return(1)
abcd.fun.2    <- function() return(2)

Eu consigo identificar as funções fictícias:

ls()[grep('abcd', ls())]

Mas quando envolvo isso em uma função:

 find.test <- function(x) {
     return(ls()[grep(x, ls())])
 }
 find.test('abcd')

A função retornacharacter(0)

Finalmente eu gostaria de

 save(find.test('abcd'), file = test.Rdata)