[R-br] Função com problema no Rprofile

Criei uma função bem simples para simplificar a digitação da read.table("clipboard", h=T) que me é bastante útil. Mas a função não funciona via Rprofile.  Alguém tem alguma sugestão? Testem a função do R e depois tentem inserir no Rprofile e usar novamente para ver o erro. A função é: clip=function(x=read.table("clipboard ", h=T)){x=read.table("clipboard", h=T); print(x)} clip()